Question

Viết chương trình sử dụng câu lệnh lặp với số lần chưa biết trước in ra các số lẻ từ 1 đến 10

Answer 1

Answer 2

uses crt;

var i:integer;

begin

clrscr;

i:=1;

while i<=10 do 

  begin

if i mod 2=1 then write(i:4);

i:=i+1;

end;

readln;

end.