Регистрация
Вика1609000
29.09.2021 06:03
Информатика
Есть ответ 👍

Дано четырехзначное число. определите является ли сумма цифр четной.

286
391
Посмотреть ответы 2

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

siraevadiana
siraevadiana
4,6(93 оценок)
Program n1; var a: integer; sum: real; begin write('введите 4-х значное число: '); readln(a); sum: =(a mod 10)+((a mod mod 10))/10+((a mod mod 100)-a mod 10)/100+(a div 1000); if(round(sum) mod 2=0) then writeln('сумма четная') else writeln('сумма нечетная'); end.
tatu261
tatu261
4,7(12 оценок)

1. Подпрограмма (англ. subroutine) — поименованная или иным образом идентифицированная часть компьютерной программы, содержащая описание определённого набора действий. Подпрограмма может быть многократно вызвана из разных частей программы.

Объяснение:

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