1. напишите программу, где пользователь вводит любое целое положительное число. а программа суммирует все числа от 1 до введенного пользователем числа.
gareevaa05
3
24.10.2019 13:40
65
Другие вопросы по теме Информатика
260г
28.09.2019 19:30
ARINA5656134
28.09.2019 19:30
румия2408
28.09.2019 19:30
Лизатян4
29.05.2019 15:10
azarkan
29.05.2019 15:10
PrinssesBublGum1337
29.05.2019 15:10
89096117672
11.01.2021 11:28
evasuperpuper123
11.01.2021 11:28
melitatomashko
11.01.2021 11:29
Популярные вопросы
- Пять прямых пересекаются в одной точке.найдите сумму углов...
2 - Сделайте косвенную речь how do you like it, elon musk? i want to...
2 - При каком выражении x значение выражения (x-61)будет на 5 единиц...
1 - Саша вырезал снежинки из бумаги, причем каждую минуту вырезал от...
2 - Полезная птица морфологический разбор...
3 - Утрикутника abc сторони відносяться до ac: cb: ab=1: 3: 5 вкажіть...
3 - Решите уравнения 1)30(1.8-у)^2+20(у+1.8)(у-1.8)=50у^2+140.4 30...
3 - Написать тему по a responsible camper...
2 - Знайдіть у тексті казочки слова, що вживає автор, описуючи, як лосі...
2 - Поход князя олега на царьград года походы князя игоря на царьград...
1
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.