в написание программы в паскале
Написать программу, которая вычисляет сумму натуральных до n числа. Число N вводится с клавиатуры и находится в пределах от 100 до 10000
дизиль
1
02.04.2020 09:34
0
Другие вопросы по теме Информатика
katya022
10.05.2021 00:54
LinaLafe
10.05.2021 01:04
FoXiCZ
10.07.2019 08:20
polina198678
10.07.2019 08:20
Sveto4ka342
30.06.2019 05:20
znania53
30.05.2019 17:40
ksyhaua0406ozoo6s
23.09.2019 19:30
KavaiiGot
23.09.2019 19:30
Сонька2808
23.09.2019 19:30
Популярные вопросы
- Опишите свои наблюдения за горящей свечёй в виде небольшого сочинения...
3 - Предмет из трех букв заканчивается на букву у...
2 - Prepositions of place comi in! this is my room. it is very the left you can see...
3 - Какой чаще всего используется при образовании существительных, какой - при образовании...
3 - Теория вероятностей элементы комбинаторики...
1 - С, . complete the sentences with the verbs in the present simple or the present...
3 - Расстояние от москвы до нижнего новгорода 440 км каким должен быть масштаб карты...
1 - Сделать рп для сампа минимум 20 строк и все команды /me /do /todo /try связане...
1 - Всосуд налили 1,4 л воды при температуре 83∘c. какое количество воды при 26∘c...
3 - 1. непризнанная республика а. обратилась к федеральному собранию рфс о вхождении...
2
var
a : integer;
summ : real;
i : integer;
begin
readln(a);
if (a >= 100) and (a <= 10000) then
begin
for i := 1 to a do
summ := sum + i;
writeln ('Сумма натур чисел ', sum);
end
else writeln('Введите число от 100 до 10000');
end.