Составьте программу запроса с клавиатуры 2-х чисел, нахождения частного от деления большего числа на меньшее и печати частного и большего числа.

Question

Виола

17 ноября, 07:47

+2

Ответы (1)

Знаете ответ на вопрос?

Дарюха · Answer 1

Var a, b:integer;

begin

read (a, b) ;

if a > b then writeln (a/b, a)

else writeln (b/a, b) ;

end.