Question

СРОЧНО. Программа в паскале:Дано 2 числа. Если их произведение кратно 5-ти, то у множить на 10, если нет - умножить на 4.

Answer 1

Program n1;
var a,b: integer;
begin
readln(a,b);
if(a*b mod 5=0) then writeln(a*b*10)
else writeln(a*b*4);
end.

Answer 2

Программа на Pascal: Проверка произведения чисел

Вот пример программы на Pascal, которая выполняет указанные условия:

program CheckProduct;

var
  num1, num2, product: integer;

begin
  writeln('Введите первое число:');
  readln(num1);
  writeln('Введите второе число:');
  readln(num2);

product := num1 * num2;

if (product mod 5 = 0) then
    product := product * 10
  else
    product := product * 4;

writeln('Результат умножения: ', product);
end.

Эта программа запрашивает у пользователя два числа, затем вычисляет их произведение и проверяет, кратно ли оно 5. В зависимости от результата проверки, произведение умножается на 10 или 4, и затем выводится результат.

Вы можете скопировать этот код в свою среду разработки Pascal (например, Lazarus) и выполнить его, чтобы увидеть, как программа работает.