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

Question

Информатика

Наталя

9 июля, 07:54

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

+1

Ответы (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.