Нужно сделать постановку задачи, описать переменные, и написать код программы. Даны два числа H и D. Если первое число кратно второму, то вывести на печать частное от деления первого на второе, в противном случае – остаток от деления первого на второе.
program shet;
uses crt;
var h, d: integer;
begin
writeln('Enter H');
readln(h);
writeln('Enter D');
readln(d);
if (h mod d = 0) then writeln(h div d)
else writeln(h mod d);
end.
Объяснение:
program shet;
uses crt;
var h, d: integer; // создаем переменные
begin
writeln('Enter H');
readln(h); // считываем к клавиатуры h
writeln('Enter D');
readln(d); // считываем с клавиатуры d
if (h mod d = 0) then writeln(h div d) // если h делится на d без остатка печатаем частное от деления
else writeln(h mod d); // иначе печатаем остаток от деления
end.