Ответы на вопрос:
Program freedig; uses crt; var a, b, c: integer; begin a: =0; for b: =1 to 3 do begin write('введите число номер ', b, ': '); readln(c); if c mod 2 = 0 then if c> 50 then a: =a+c; end; write('сумма четных чисел, больших 50, равна ', a); readln end.
Популярно: Информатика
-
елеонора528.04.2023 12:07
-
tolikbn8515.04.2022 10:12
-
ustishca13.04.2021 15:16
-
bileskayilona30.05.2023 02:32
-
mafobe6608.02.2021 18:42
-
EcLIpsЕ25.12.2022 02:30
-
Lirki13.02.2020 02:57
-
kapitoshka20226.07.2021 00:48
-
tsts8408.05.2021 11:24
-
son9a30.10.2021 18:02