Question

Sử dụng lệnh lặp for..do. Viết chương trình in ra 50 số chẵn tự nhiên đầu tiên?

Answer 1

program ko_co_ten;

uses crt;

var i:integer;

begin

clrscr;

for i:1 to 50 do writeln(i);

readln;

end.

Answer 2

program fh;

uses crt;

var i: integer;

begin

clrscr;

writeln('50 so chan tu nhien dau tien la: ');

for i:=1 to 50 do write(i);

readln

end.

Answer 3

var i:integer;

begin

for i:=1 to 50 do

if i mod 2=0 then write(i);

readln;

end.

Answer 4

Bài của tất cả các bạn sai rồi . Các bạn làm như vậy thì kết quả sẽ là in 25 số chẵn thay vì 50 số chẵn . Cách làm như sau :

Lời giải :

program hotrotinhoc ;

var i : integer ;

Begin

for i:= 1 to 100 do

if i mod 2 =0 then write(i,' ');

readln

end.