Дано натуральное число n составить программу нахождения суммы всех чисел от 1 до n. решить изпользуя цикл repeat, заранее )

yanaolok yanaolok    3   20.05.2019 11:20    0

Ответы
drwnd drwnd  13.06.2020 20:51

var
i, n,l: integer;
begin
write ('Введите число: ');
readln (n);
i := 1;
repeat
l:=l+i;
inc(i);
until i > n;
write('Сумма всех чисел равна: ', l);
end.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика