Question

[ Em hãy viết đoạn chương trình sử dụng vòng lặp For...do để in ra màn hình các số từ 1 đến 10 ]

giúp mik ik mai mik thi gk 2 r

Answer 1

tham khảo

 

uses crt;

var i,t:integer;

begin

clrscr;

t:=0;

for i:=1 to 10 do

t:=t+i;

writeln('Tong cac so tu nhien tu 1 toi 10 la: ',t);

readln;

end.

Answer 2

refer

uses crt;

var i: integer;

begin

clrscr;

for i:= 1 to 10 do

begin writeln ( ' O ' ) end;

readln

end.