: Viết chương trình tính tổng các số tự nhiên trong phạm vi từ 10 đến 20. Thông báo kết quả ra màn hình?
: Viết chương trình tính tổng các số tự nhiên trong phạm vi từ 10 đến 20. Thông báo kết quả ra màn hình?
By Isabelle
By Isabelle
: Viết chương trình tính tổng các số tự nhiên trong phạm vi từ 10 đến 20. Thông báo kết quả ra màn hình?
uses crt;
var i,s: integer;
begin
clrscr;
for i:=10 to 20 do s:=s+i;
writeln (‘tong la: ‘,s);
readln;
end.
program Tinh_tong;
uses crt;
var i,Tong :intenger;
Begin
clrscr;
Tong=0
for:i=10 to 20 do Tong=Tong+i;
writeln(‘Tong cac gia tri la:’,Tong);
readln;
end.