Получить сумму всех чисел от 1 до n. С помощью циклической программы.

0 голосов
17 просмотров

Получить сумму всех чисел от 1 до n. С помощью циклической программы.


Информатика (20 баллов) | 17 просмотров
Дан 1 ответ
0 голосов

uses crt;

var i,n,s:integer;

begin

read(n);

s := 0;

for i := 1 to n do begin

s := s + i;

end;

writeln(s);

end.

(558 баллов)