Введите с клавиатуры два числа a и b. Если оба числа четные, то вычислите их сумки выведите результат на экран. если оба нечетные то найдите

произведение этих чисел и выведите результат. Иначе, увеличить все числа в пять раз и выведите результаты. Решение, которое уже есть на сайте не писать

Question

Информатика

Текуса

8 сентября, 16:53

Введите с клавиатуры два числа a и b. Если оба числа четные, то вычислите их сумки выведите результат на экран. если оба нечетные то найдите

произведение этих чисел и выведите результат. Иначе, увеличить все числа в пять раз и выведите результаты. Решение, которое уже есть на сайте не писать

+4

Ответы (1)

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

Фридрих · Answer 1

Var

a, b, c:integer;

begin

readln (a, b) ;

If (a mod 2 = 0) and (b mod 2 = 0) then

begin

c:=a+b;

writeln ('Сумма = ', c) ;

end

else

if (a mod 2 = 1) and (b mod 2 = 1) the

begin

c:=a*b;

writeln ('Произведение = ', c) ;

end

else

begin

a:=a*5;

b:=b*5;

writeln ('A=', a,' B = ', b) ;

end; end.