Дано натуральное число.Вывести произведение его четных цифр (программа)
5-9 класс
|
uses crt;
var a,pr,n:integer;
begin
pr:=1;
write('Введите число: '); readln(a);
while a>0 do
begin
n:=a mod 10;
if (n mod 2=0) and (n<>0) then pr:=pr*n;
a:=a div 10;
end;
writeln('Произведение четных цифр числа: ',pr);
end.
Другие вопросы из категории
человеке! Буду благодарна! 6 класс Уже 4 раз пишу:с На завтра срочно нужно,не знаю что писать :ссс
положительных и отрицательных элементов. Найти max и min из положительных и поменять местами.
Читайте также
N, Написать ему выводящую на экран последовательность натуральность натуральных чисел отN до 1, номер 3 Даны натуральные числа N и К.Написать программу выводящую на экран последовательность из N чисел , каждое из которых равно К хотя бы что нибудь решите помогите очень надо!!!!!!!!!
Найти и напечатать те из них, которые при делении на 7 дают остаток 1, 2 или 5.
3)Дано целое число а и натуральное (целое неотрицательное) число n. Вычислить а в степени n, используя в программе лишь операцию умножения.
4)Введите последовательность из n целых чисел. Найти наибольшее из всех отрицательных чисел. Вывести его значение и порядковый номер.
5)Вычислите: 99-97+95-93+91-89+....+7-5+3-1.
6)Доказать (путем перебора возможных значений), что для любых величин А, В, С типа Boolean следующая пара логических выражений имеет одинаковые значения (эквивалентны): A OR (B AND C) и (A OR B) AND (A OR C).
натуральных числа вывести на экран то из них у которого цыфра меньше. пожалуйста решите 2 задачи