Предмет: Информатика,
автор: chessmaster46
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.
Похожие вопросы
Предмет: Математика,
автор: mmobi8372
Предмет: Право,
автор: lydmylakr
Предмет: География,
автор: proroll1403
Предмет: Алгебра,
автор: mooms548666
Предмет: Алгебра,
автор: Otlichnica55555