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