Регистрация
Azalia1324
23.09.2021 07:54
Информатика
Есть ответ 👍

Работа в паскале. составьте программу определяющую является ли сумма цифр данного четырёхзначного числа n четным числом

213
497
Посмотреть ответы 2

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

dimaprokopovewp06mw2
dimaprokopovewp06mw2
4,8(99 оценок)
Var     a: integer; begin write('введите четырёхзначное число: '); readln(a); if ((a div 1000) + ((a div 100) mod 10) + ((a div 10) mod 10) + (a mod 10)) mod 2 = 0 then writeln('да, является') else writeln('нет, не является') end.
Matvei200322
Matvei200322
4,6(92 оценок)

в результате выполнения программы к каждому числу, расположенному на главной диагонали квадратной матрицы будет прибавляться номер строки.

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