Question

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

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.

Answer 2

другой пример. вводишь: 1 число = 3. 2 число - 5. программа проверяет 3 кратно 4, нет, считает по формуле 3*5*4= 70.

Answer 3

все, правильно)

Answer 4

я знаю, что правильно))

Answer 5

еще раз большое спасибо))

Answer 6

обращайся)