Предмет: Информатика,
автор: AlyaAvetisyan
дано натуральное число n составить программу нахождения суммы всех чисел от 1 до n. Решить задачу изпользуя цикл REPEAT, заранее спасибо)
Ответы
Автор ответа:
1
var
i, n,l: integer;
begin
write ('Введите число: ');
readln (n);
i := 1;
repeat
l:=l+i;
inc(i);
until i > n;
write('Сумма всех чисел равна: ', l);
end.
Интересные вопросы
Предмет: Русский язык,
автор: макс2551
Предмет: Русский язык,
автор: eva557
Предмет: Окружающий мир,
автор: sashalyubumenko
Предмет: Музыка,
автор: annamuylleranna