Попробуй правой стороной мыши на объект, потом свойства и всё
Var
a, b: integer;
begin
Write('Введите через пробел делимое и делитель: ');
Readln(a, b);
Writeln(a, '/', b, '=', a div b, ', остаток ', a mod b)
end.
Тестовое решение:
Введите через пробел делимое и делитель: 1564 137
1564/137=11, остаток 57
Вбей в поисковик таблица истинности онлайн, с подробным решением выдаст
Рассмотрим назначение переменных на примере.
Пусть задано число 34561.
Тогда n=34651 (введённое число сохраняется в переменной n). В цикле значение n меняется так: 3465, 346, 34, 3, 0.
Переменная c используется при получении цифр числа, т.е. в этой переменной последовательно будут значения 1, 5, 6, 4, 3.
В переменной mn сохраняется минимальная цифра, стоящая на чётном месте. Значения этой переменной: 9 (начальное значение), 6, 4.
Переменная i используется для определения места (чётное или нечётное) цифры числа. Начальное значение i=0, затем i в цикле увеличивается на 1: 1, 2, 3, 4, 5.
Значение 3 показывает, что число трехзначное.
Чтобы записать тремя цифрами a, b, c минимальное число, надо расставить их по возрастанию.
Положим a=1 (меньше не бывает), тогда b+c=17-1 или b+c=16.
16 = 8+8 = 7+9.
Искомое число 179.