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

Question

Информатика

Август

6 января, 18:44

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

+2

Ответы (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.