1. Напишите программу, где пользователь вводит любое целое положительное число. А программа суммирует все числа от 1 до введенного пользователем числа.
Ответы
Ответ дал:
0
Ответ:
program Summa;
var
n, s, i: Integer;
begin
Write ('Введите число: ');
ReadLn (n);
s := 0;
for i := 1 to n do
s := s + i;
WriteLn ('Сумма = ', s);
ReadLn;
end.
Вас заинтересует
4 месяца назад
4 месяца назад
5 месяцев назад
5 месяцев назад
2 года назад
7 лет назад