Дано четырех значное число. нужно проверить является - вопрос №8744105 от allteennkka1985 02.04.2021 00:13

Question

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

allteennkka1985 · Answer

Vara:array[1..4] of integer;s,i:integer;beginwhile i 4 do begini+=1;read(a[i]);s+=a[i];end;if frac(s/2) = 0 then write( yes )else write( not );end....