Question

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

Answer 1

program ff;

var
x1,x2:integer;
begin
Write('Введите первое число: ');
Readln(x1);
Write('Введите второе число: ');
Readln(x2);

if x1>x2 then writeln(x1 div x2)
else writeln(x1 mod x2);
readln();
end.