Viết chương trình tính tổng 20 số chẵn đầu tiên (sử dụng cấu trúc while do)
2 câu trả lời
program bai_giai;
uses crt;
var dem,i,s:longint;
begin
clrscr;
dem:=0;
i:=0;
s:=0;
while dem<=20 do
begin
if(i mod 2=0)then
begin
inc(dem);
s:=s+i;
end;
inc(i);
end;
write('tong 20 so chan dau tien la:',s);
readln;
end.
Program Nhat_nekk;
Uses crt;
Var S,i:integer;
Begin
clrscr;
i:=1;
S:=0
while(i<20) do
begin
S:=s+i
i:=i+1
end;
readln;
end.
Câu hỏi trong lớp
Xem thêm
