Написать программу которая запрашивает 2 целых числа. Если 1 число больше чем второе, то необходимо вывести на экран целую часть от деления первого числа на второе, а иначе нужно вывести остаток.
Ответы на вопрос
Ответил uyuczukukuke
0
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.
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.
Новые вопросы