Номер 10, страница 82 - гдз по информатике 8 класс учебник Котов, Лапо

10. Программу из примера 16.5 изменили. Сформулируйте условие задачи, которая решается с помощью этой программы.

var a, a1, a2, a3: integer;

begin

write('Введите a = '); read(a);

if (a > 99) and (a < 1000) then

begin

// Первая цифра

a1 := a div 100;

// Вторая цифра

a2 := a mod 100 div 10;

// Третья цифра

a3 := a mod 10;

if a1 mod 2 = 0 then

writeln(a1,'- четная ');

if a2 mod 2 = 0 then

writeln(a2,'- четная ');

if a3 mod 2 = 0 then

writeln(a3, '- четная');

if odd(a1) and odd(a2) and odd(a3) then

writeln('нет четных цифр');

end

else

writeln('не трехзначное');

end.

10 Для заданного целого числа определить, является ли оно трехзначным. Если является, то вывести все его четные цифры, каждую на новой строке. Если в числе нет четных цифр, вывести сообщение «нет четных цифр». Если число не является трехзначным, вывести сообщение «не трехзначное».