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

Question

Евфалия

19 августа, 13:38

+3

Ответы (1)

Знаете ответ?

Евтихия · 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.