Найти сумму всех целых чисел от 0 до b ( значение b вводится с клавиатуры ) ( abc pascal ) 8 класс
ankadudka
3
24.03.2019 15:52
0
Другие вопросы по теме Информатика
Vinyl98
25.04.2019 17:45
СоникДляТебя67
11.05.2021 23:22
kridnyuta
11.05.2021 23:19
Аноним20021304
25.09.2019 14:20
juehxbrf
25.09.2019 14:20
petrovaanastasia26
25.09.2019 14:20
anastasyabesso1
16.03.2021 10:45
alyonabursina
16.03.2021 10:44
oksana2000001
16.03.2021 10:44
Популярные вопросы
- Нужно сочинение на тему: мой любимый уголок природы для 6 класса...
3 - 23 синтаксический разбор предложения бобры осины...
2 - Сделать программу в делфи: сократить дробь. пришлите код программы и всю программу...
2 - Твір на тему - чи можна погоджуватися що енеїда івана котляренвського це енцеклопедія...
2 - 2х в квадрате+ 7х=0 решите уравнение...
3 - На завтра знайдіть суму шести членів ї прогресії якщо (bn 2)якщо b2+b3+b4=78,b5-b2=156...
3 - Для приготовления салата нужно купить равные части перца помидоров огурцов и моркови.за...
3 - Определите работу силы тяги двигателя автомобиля массой 8 тонн.скорость автомобиля...
3 - Яка тварина тобі подобаеться найбильше(собака)...
2 - Iз пункту а до пункту в, вiдстань мiж якими становиться 17 км, вийшов пiшохiд....
3
var
b, i, sum : integer;
begin
readln (b);
sum:= 0;
for i:= 0 to b do
sum:=sum+i;
writeln (sum);
end.