Вишневецкий
5 год назад
Срочно Пожалуйста посчитайте с решением пожалуйста!!!!!!!!!!Решение на языке ПаскальНа обработку поступает натуральное число, не превышающее 109. Нужно написать программу, которая выводит на экран произведение цифр числа, которые делятся на 2 и на 4. Если в числе нет таких цифр, требуется на экран вывести «NO».
ОТВЕТЫ
Harris Erick
Oct 24, 2020
var N,digit,maxDigit: longint;
begin
readln(N);
maxDigit := N mod 10;
while N > 0 do
begin
digit := N mod 10;
if digit mod 3 = 0 then
if digit > maxDigit then
maxDigit := digit;
N := N div 10;
end;
if maxDigit = 0 then
writeln('NO')
else
writeln(maxDigit)
end.
вроде так
335
Смежные вопросы:
