Napisz (w Pascalu) program który zsumuje kolejne liczby całkowite danej liczby (suma liczb). Np.
Liczba 5
Suma 1+2+3+4+5
Proszę o napisanie treści programu i skopiowanie tutaj.
" Life is not a problem to be solved but a reality to be experienced! "
© Copyright 2013 - 2024 KUDO.TIPS - All rights reserved.
USES CRT;
var
suma : integer;l : integer;
tmp : integer;
begin
clrscr;
readLN(tmp);
write('suma: ');
for l:=1 to tmp do
begin
suma := suma + l;
write(l);
if l = tmp then write(' = ') else write(' + ');
end;
writeLN(suma);
readLN;
end.