Составь алгоритм вычисления суммы всех натуральных чисел, не превышающих заданного с клавиатуры натурального числа N. Напиши программу на Паскале.
Нет комментариев
Ответы
Гость var
n, sum : integer;
begin
write('a? ');
readln ( a);
for var i := 1 to n-1 do sum := sum + i;
writeln(' сумма=', sum);
end.
3 комментария:
можешь 2 решить еще
??
тут ошибку исправил sum := sum + i;
можешь 2 решить еще
??
тут ошибку исправил sum := sum + i; Похожие вопросы
Список предметов
