Ответы на вопрос:
program ilnur17; uses crt; var n,sum,temp: integer; begin write('введите число '); readln(n); if n< > 0 then begin sum: =0; writeln('*** alphaues is ***'); writeln('*** ok ***'); while n> =1 do begin write('введите следующее число '); readln(temp); if (temp< 0) and (temp mod 2 = 0 ) then sum : = sum + temp; n: =n-1 end; end else writeln('вы ввели 0 - выход из программы'); writeln('cуммa отрицательных четных чисел равна ',sum); end.
Популярно: Информатика
-
Ilia109837424.05.2021 07:51
-
ŦøPňŷŦĩĩ7825.09.2021 01:36
-
maksimwwe0071814.05.2020 21:44
-
vladislavtanasienko120.06.2021 22:38
-
юлиядзудзе06.02.2023 19:50
-
LOLLIPOPS4525.12.2021 00:19
-
arsyuha20.09.2021 23:45
-
LightDarkness20.02.2020 23:22
-
Простокнигоманка20.02.2022 03:55
-
CoolGirl7801.02.2021 10:42