Question

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

begin

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

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.

Answer 1

На вход подаётся число. Если оно не трёхзначное, программа выводит "не трехзначное", если же оно трёхзначное, то программа выводит каждую чётную цифру и пишет, что она чётная. Если все цифры нечётные, то программа выведет "нет четных чисел".