Ответы на вопрос:
Program Sum;
var num, start: integer;
begin
start := 1;
write('Enter N: '); readln(num);
for var i := 2 to num do
start += i;
writeln('Sum = ',start);
end.
Удачи))
Популярно: Информатика
-
hjhthy11.09.2020 00:46
-
Алшиния26.05.2022 20:53
-
neketos54p0cc9j05.10.2022 03:34
-
GoldFish170101.10.2021 02:17
-
Як1222.07.2022 23:05
-
tayanika17.09.2021 05:20
-
natalimironenko08.02.2020 12:27
-
Jnash9906.08.2022 04:21
-
cawa027320.12.2020 18:34
-
Aminka2621.03.2020 01:16