bạn ơi câu a của bạn ý j ạ mk giải dc hết hỏi xíu thui
ý của câu a đầu là j ??
câu 2 đem in4 or gmail r viết cho r viết code cho dài vl ra
code câu a tạm
s:=0;n:=5;
while s<=50 do
begin
i:=i+2; s:=s+i;
end;
write(s);
readln;
end.
phần trên khai báo tự viết
câu hiệu của n số tự nhiên đầu tiên đề cx k rõ vì k bt lấy cái nào trừ :))
code
s:=a[1];
for i:=2 to n do
s:=s+a[i]; hoặc s:=s-a[i]; hoặc s:=s*a[i];
write(s);
readln;
end.
phần trên khai báo tưj viết
Bài 4:
uses crt;
var s,t,h:real;
i,n:integer;
begin
clrscr;
write('Nhap n='); readln(n);
t:=0;
h:=0;
s:=1;
for i:=1 to n do
begin
t:=t+i;
h:=h-i;
s:=s*i;
end;
writeln('Tong la: ',t:0:0);
writeln('Hieu la: ',h:0:0);
writeln('Tich la: ',s:0:0);
readln;
end.