Дано четырех значное число. нужно проверить является ли сумма цифр заданного числа четная. формат ввода в входном файле находится одно четырехзначное число. формат вывода в выходной файл следует вывести сообщение "yes", если сумма цифр число четная или "no", если сумма не четная.
116
375
Ответы на вопрос:
Var a: array[1..4] of integer; s,i: integer; begin while i < 4 do begin i+=1; read(a[i]); s+=a[i]; end; if frac(s/2) = 0 then write('yes') else write('not'); end.
Популярно: Информатика
-
Данил6785424.02.2021 18:35
-
Арпинэ112.06.2023 18:29
-
Igorevna2918.05.2021 00:34
-
30kotenok0423.03.2020 10:29
-
saschaalexandrova22.11.2022 14:17
-
AnnA12Demidenko06.09.2021 17:40
-
safaannainfinity26.08.2020 10:30
-
topciknazaraakinceva20.03.2020 03:48
-
Огнены28.05.2022 14:25
-
musinasim14.03.2022 19:39