Сформулируйте условие задачи, которая решается с помощью этой программыbeginwrite('Введите а= ');read(a);if(a>99) and (a<1000) thenbegin// Первая цифраa1 := a div 100;// Вторая цифраa2 := a mod 100 div 10;// Третья цифраa3 := a mod 10;if a1 mod 2=0 thenwriteln(a1,'-четная ');if a2 mod 2=0 thenwriteln(a2,'-четная ');if a3 mod 2=0 thenwriteln(a3,'-четная ');if odd(a1) and odd(a2) and odd(a3) thenwriteln ('нет четных чисел');endelsewriteln('не трехзначное');end.
Дано трехзначное число? Из всех цифр, из которых состоит это число, найти все четные и вывести их. Если таких нет - вывести "нет четных цифр", если число не трехзначное вывести: "число не трехзначное".
В первом предложении точка, а не знак вопроса.
На вход подаётся число. Если оно не трёхзначное, программа выводит "не трехзначное", если же оно трёхзначное, то программа выводит каждую чётную цифру и пишет, что она чётная. Если все цифры нечётные, то программа выведет "нет четных чисел".
выводит только четные цифры
Да, извините.