Написать программу вычисления суммы всех четных чисел в диапазоне от 1 до n (используя repeat)
125
314
Ответы на вопрос:
program repeater;
var n,s,i: integer;
begin
n : = 10;
s : = 0;
i : = 0;
repeat
s : = s + i;
i : = i + 2;
until i > n;
writeln(s);
end.
Популярно: Информатика
-
lapkinalidala01.03.2022 19:29
-
MYSABIEKOVA5714.06.2020 23:57
-
dapmoney2p0c8c002.06.2023 14:20
-
Глеб070717.11.2020 06:37
-
ymnый009.09.2021 01:56
-
Тима7771107.08.2020 13:40
-
хочусдохнуть06.01.2020 14:59
-
чулпан200812.05.2022 18:46
-
sofiahayda11.09.2022 23:51
-
BountyMars16.08.2021 10:29