Составьте программу паскаль вычисления суммы натуральных чисел не превышающих заданного числа n
135
326
Ответы на вопрос:
Var a,n,i: integer; begin write('введите число '); readln(n); for i: = 1 to n do a: =a+i; write('сумма всех натуральных чисел до n (включительно) равна ',a); end.
Популярно: Информатика
-
StrangeLis27.01.2022 23:22
-
Кристиночка200320.12.2022 05:38
-
машаоляапро10.01.2021 13:13
-
5478326.02.2021 05:50
-
LELEGEG29.06.2020 14:01
-
xatovaan20.10.2021 00:05
-
Татьяна7282802.11.2022 01:28
-
tutinae25.09.2021 12:42
-
dimaburkovskiy330.10.2021 13:10
-
Бекзат200010.11.2022 22:40