Question

Viết chương trình pascal sử dụng cấu trúc lặp để in ra màn hình tổng của 10 số tự nhiên đầu tiên

Answer 1

Tham khảo

Var s,i:integer;
begin
 S:= 0;
 For i:= 1 to 10 do s:=s+1;
 Writeln (‘tong cua 10 so tu nhien dau tien la:’,s);
 Readln
End.

Answer 2

Var i,s:integer;

Begin

For i:=1 to 10 do

s:=s+i;

Write('Tong la ',s);

Readln;

End.