Có ai biết cách sửa lỗi trong Turbo Pascal không?
Giúp mk với!!!
Error 8: String constant exceeds line
Cảm ơn!!!
K
Khách
Hãy nhập câu hỏi của bạn vào đây, nếu là tài khoản VIP, bạn sẽ được ưu tiên trả lời.
Những câu hỏi liên quan
14 tháng 5 2022
uses crt;
var i,n,kt:integer;
begin
clrscr;
readln(n);
kt:=0;
for i=2 to trunc(sqrt(n)) do
if n mod i=0 then kt:=1;
if (kt=0) and (n>1) then write('phai')
else write('Khong phai');
readln;
end.
KV
14 tháng 5 2022
Var i,n,souoc:integer;
Begin
While n <= 1 do
Begin
Write('Nhap n = ');readln(n);
End;
For i:=1 to n do
If n mod i = 0 then souoc:=souoc+1;
If souoc = 2 then write(n,' la so nguyen to')
Else write(n,' khong la so nguyen to');
Readln;
End.
V
1
PL
28 tháng 12 2017
Ta thấy mỗi số hạng của tổng trên là tích của hai số tự nhên liên tiếp, khi đó:
Gọi a1 = 1.2 → 3a1 = 1.2.3 → 3a1 = 1.2.3 - 0.1.2
a2 = 2.3 → 3a2 = 2.3.3 → 3a2 = 2.3.4 - 1.2.3
a3 = 3.4 → 3a3 = 3.3.4 → 3a3 = 3.4.5 - 2.3.4
…………………..
an-1 = (n - 1)n → 3an-1 =3(n - 1)n → 3an-1 = (n - 1)n(n + 1) - (n - 2)(n - 1)n
an = n(n + 1) → 3an = 3n(n + 1) → 3an = n(n + 1)(n + 2) - (n - 1)n(n + 1)
Cộng từng vế của các đẳng thức trên ta có:
3(a1 + a2 + … + an) = n(n + 1)(n + 2)