Дано четырех значное число. нужно проверить является ли сумма цифр заданного числа четная. формат ввода в входном файле находится одно четырехзначное число. формат вывода в выходной файл следует вывести сообщение "yes", если сумма цифр число четная или "no", если сумма не четная.

Subota Subota    3   19.09.2019 05:50    0

Ответы
Westix Westix  08.10.2020 01:37
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.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика