Есть ответ 👍

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

116
375
Посмотреть ответы 2

Ответы на вопрос:

popoposa
4,8(90 оценок)

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.
Dffgvfh
4,4(29 оценок)

If n mod 2 =0 then begin end;

Популярно: Информатика