Ввести с клавиатуры два числа x, y. Большее число заменить на частное, x на y. Меньшее число заменить на остаток от деления х на у

Question

Информатика

Галика

24 февраля, 12:59

Ввести с клавиатуры два числа x, y. Большее число заменить на частное, x на y. Меньшее число заменить на остаток от деления х на у

+2

Ответы (1)

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

Таися · Answer 1

Var x, y, max, min: integer;

begin

readln (x, y) ;

max:=0; min:=0;

if x>y then begin

max:=x div y;

min:=x mod y;

writeln (max,' ', min) ;

end;

if x
min:=x div y;

max:=x mod y;

writeln (max,' ', min) ;

end;

end.