Question

Viết chương trình in ra màn hình các số lẻ từ 1 đến 200

Answer 1

USES crt;

VAR i:integer;

BEGIN

clrscr;

i:=1;

repeat

write(i:4);

inc(i,2);

until i>200;

END.

Answer 2

uses crt;

var i:integer;

begin

clrscr;

write('Cac so le tu 1 den 200 la: ');

writeln; {cách một dòng cho đẹp}

for i:=1 to 200 do

if i mod 2 <> 0 then write(i:5);

readln

End.