Вывести сумму первых 25 натуральных чисел
Юлька9062804
3
25.07.2019 14:40
0
Другие вопросы по теме Информатика
Stasonka
31.07.2019 12:40
denis2013den
31.07.2019 12:40
applevip
19.01.2021 13:41
Vika32ytr4
25.03.2019 12:50
Sofia667
25.03.2019 12:05
Сакураджи
10.08.2019 10:00
tvzhanna80
10.08.2019 10:00
Daria1378
10.08.2019 10:00
nata506
10.08.2019 10:00
Популярные вопросы
- Как вы понимаете изречение конфуция : не забывай оно учитель будущего....
3 - Честно , вычислите площадь фигуры ограниченной линиями у=х^2+1,у=х+3...
1 - Определите угол наклона отрезка к плоскости если длинна наклонной 22см,...
2 - Прочитай текст. какие из словсинонимов, помещённых в скобках, кажутся...
1 - Какие выражения равны данному выражению 8a−8m? 8(−m−a) 8(a−m) (a−m)⋅8...
3 - Решите уровнение (x-1)(x^2+4x+4)=4(x+2)...
1 - Найти f (x0)`, если f (x)=(1/(2x+7)-x)^3; x0=-3...
3 - Вычислите сумму первой девяти чисел арифмитической прогрессии (cn) c1=...
2 - Использовали 2/3 часть 6 коробок масла каждая из которых весила весила...
1 - Придя в лес, мне стало холодно. почему предложение с деепричастием написано...
2
begin
Print(Range(1,25).Sum)
end.
Результат:
325
var: k,s,i: integer;
begin
k:=1;
s:=0;
for i:=1 to 25 do
begin
s:=s+k;
k:=k+1;
end;
writeln(s);
end.