Для четырёх произвольных чисел, введёных с клавиатуры, выведите на экран соответствующие результаты. Если произведение второго и четвёртого числа чётно, то выведите эти два числа и их произведение. Паскаль

Question

Информатика

Бенедикт

31 мая, 12:56

Для четырёх произвольных чисел, введёных с клавиатуры, выведите на экран соответствующие результаты. Если произведение второго и четвёртого числа чётно, то выведите эти два числа и их произведение. Паскаль

+5

Ответы (1)

Знаете ответ на вопрос?

Вика · Answer 1

Var a, b, c, d:integer;

begin

writeln ('Введите 4 числа:') ;

readln (a, b, c, d) ;

if b*d mod 2 = 0

then writeln ('b = ', b,' d = ', d,' ', b,'*', d,' = ', b*d) ;

end.

Пример:

Введите 4 числа:

51 32 19 73

b = 32 d = 73 32*73 = 2336