(Sử dụng câu lệnh lặp for… do). Viết chương trình tính tổng của n số tự nhiên liên tiếp
Mình đang cần gấp á bạn nào giỏi tin giúp mình nha. Nhớ làm chính xac, rõ rằng nha. Cảm ơn nhiều nhiều ????????
(Sử dụng câu lệnh lặp for… do). Viết chương trình tính tổng của n số tự nhiên liên tiếp
Mình đang cần gấp á bạn nào giỏi tin giúp mình nha. Nhớ làm chính xac, rõ rằng nha. Cảm ơn nhiều nhiều ????????
program Tin_hoc;
uses crt;
var i,n,tong:integer;
begin
clrscr;
write(‘Nhap n: ‘);readln(n);
s:=0;
for i:= 1 to n do s:=s+i;
writeln(‘Tong cua ‘,n,’ so tu nhien lien tiep la: ‘,tong);
readln;
end.
var i,n,s:integer;
begin
write(‘Nhap n: ‘); readln(n);
for i:=1 to n do
s:=s+i;
write(‘Tong la: ‘,s);
readln
end.