Question

Сформулируйте условие задачи, которая решается с помощью этой программы 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.

Answer 1

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

Answer 2

Задача: Определение четных цифр трехзначного числа.

Условие задачи: Напишите программу, которая принимает на вход трехзначное число "a" от пользователя. Если число "a" является трехзначным, то программа определяет и выводит на экран четные цифры, которые содержатся в числе "a". Если все цифры числа "a" нечетные, программа выводит сообщение "нет четных чисел". Если введенное число не является трехзначным, программа выводит сообщение "не трехзначное".