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.