Ввести 2 числа если первое кратно 4 а второе положительное, то уменьшить их произведение в 3 раза, в противном случае увеличить их произведение в 4 раза

Question

Информатика

Анфима

23 июня, 14:15

Ввести 2 числа если первое кратно 4 а второе положительное, то уменьшить их произведение в 3 раза, в противном случае увеличить их произведение в 4 раза

+5

Ответы (1)

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

Геруша · Answer 1

Var

a, b: integer;

begin

writeln ('vvedite 1 chislo:') ;

readln (a) ;

writeln ('vvedite 2 chislo:') ;

readln (b) ;

if (a mod 4) = 0 then writeln ('resultat ', a*b/3)

else writeln ('resultat ', a*b*4)

end.