Написать программу которая запрашивает 2 целых числа. Если 1 число больше чем второе, то необходимо вывести на экран целую часть от деления первого числа на второе, а иначе нужно вывести остаток.

Question

Информатика

Владимира

19 мая, 06:53

Написать программу которая запрашивает 2 целых числа. Если 1 число больше чем второе, то необходимо вывести на экран целую часть от деления первого числа на второе, а иначе нужно вывести остаток.

+4

Ответы (1)

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

Мирослава · Answer 1

Program zadacha;

var

a, b:integer;

begin

write ('Введите 1-ое число: ') ;

readln (a) ;

write ('Введите 2-ое число: ') ;

readln (b) ;

if a>b then

writeln (a div b)

else

writeln (a mod b) ;

end.