Viết chương trình pascal tính tổng các số tự nhiên trong phạm vi từ 5-45(dùng lệnh lặp while…..do)thông báo kết quả ra màn hình
Giúp mình với nhé
Viết chương trình pascal tính tổng các số tự nhiên trong phạm vi từ 5-45(dùng lệnh lặp while-.do)thông báo kết quả ra màn hình Giúp mình với nhé
By Piper
var i,n,t:integer;
begin
i:=5;
n:=45;
while i<=n do
begin
t:=t+i;
i:=i+1;
end;
writeln(t);
readln;
end.