Bài câu lệnh lặp : viết chương trình xuất ra các số chẵn từ 1 đến 20
2 câu trả lời
Đáp án + Giải thích các bước giải:
program Tin_hoc;
uses crt;
var i,tong:integer;
begin
clrscr;
tong:=0;
for i:= 1 to 20 do i mod 2 = 0 then tong:=tong + i;
writeln('Tong cac so chan tu 1 den 20 la: ',tong);
readln;
end.
code pascal:
program bai_tap;
uses crt;
var i:longint;
begin
clrscr;
write('Cac so chan tu 1 den 20 la: ');
for i:=1 to 20 do
if i mod 2=0 then
write(i,' ');
readln;
readln;
end.
Câu hỏi trong lớp
Xem thêm