Задать вопрос
30 августа, 14:00

Найдите количество чётных цифр заданного числа по программе pascal.

+1
Ответы (1)
  1. 30 августа, 14:49
    0
    program chislo; var k: integer; a, n:longint; begin write ('A = '); readln (a); n:=a; while n div 10 0 do begin n:=a; if odd (n mod 10) = false then k:=k+1; a:=a div 10; end; writeln (k); readln; end.
Знаешь ответ на этот вопрос?
Сомневаешься в правильности ответа?
Получи верный ответ на вопрос 🏆 «Найдите количество чётных цифр заданного числа по программе pascal. ...» по предмету 📕 Информатика, используя встроенную систему поиска. Наша обширная база готовых ответов поможет тебе получить необходимые сведения!
Найти готовые ответы
Похожие вопросы информатике
Автомат получает на вход четырёхзначное десятичное число. По полученному числу строится новое десятичное число по следующим правилам. 1. Вычисляются два числа - сумма четных цифр и сумма нечетных цифр заданного числа. 2.
Ответы (1)
Дано натуральное число: определить а) количество цифр в нем б) сумму его цифр в) произведение его цифр г) среднее арифметическое его цифр д) сумму квадратов его цифр е) сумму кубов его цифр ж) его первую цифру з) сумму его первой и последней цифр
Ответы (1)
Найти сумму двух цифр заданного двузначного числа в pascal
Ответы (1)
Найти количество элементов массива значения которых больше заданного числа В и кратно 5. Составить в программе Pasсal ABC.
Ответы (1)
Автомат получает на вход четырёхзначное десятичное число. По полученному числу строится новое десятичное число по следующим правилам. 1. Вычисляются два числа - сумма первой и второй цифр и сумма третьей и четвёртой цифр заданного числа. 2.
Ответы (1)