Question

Решите в программе Паскаль: даны числа a,b,если остаток при целочисленном деление равен 0. Число а присвоить частное от деление, а иначе число А присвоить произведение чисел А и B

Answer 1

    var a,b:integer;
      begin    read(a);    read(b);    if a mod b=0 then    a:= a div b else    a:=a*b;       write(a);    end.

Answer 2

Программа на языке Паскаль, которая решает данную задачу, может выглядеть следующим образом:

program DivisionRemainder;
var
  a, b, result: integer;
begin
  writeln('Введите число a:');
  readln(a);
  writeln('Введите число b:');
  readln(b);
  
  if a mod b = 0 then
    result := a div b
  else
    result := a * b;
  
  writeln('Результат:', result);
end.

В данной программе мы сначала запрашиваем у пользователя два числа `a` и `b`. Затем мы проверяем, равен ли остаток от деления `a` на `b` нулю с помощью оператора `mod`. Если остаток равен нулю, то присваиваем переменной `result` частное от деления `a` на `b` с помощью оператора `div`. В противном случае, когда остаток не равен нулю, присваиваем переменной `result` произведение `a` и `b`. Далее выводим результат на экран с помощью оператора `writeln`.