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

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

begin

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

read(a);

if(agt;99) and (alt;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.

Ева Реполова 2019-09-22 16:51:25

Дано трехзначное число? Из всех цифр, из которых состоит это число, найти все четные и вывести их. Если таких нет - вывести "нет четных цифр", если число не трехзначное вывести: "число не трехзначное".

Vanka Garfrejtag 2019-09-22 16:55:44

В первом предложении точка, а не символ вопроса.