Цитата:
Сообщение от Monro
У меня снова к вам просьба решить задачу только уже другую)))
2.Промоделировать деление целого числа А на целое число В для получения целого частного С и целого остатка Р. Например, при делении А=13 на В=5 должно получиться С=2 и Р=3.
|
Ну... это же стандартные функции! Чего тут "моделировать"? Впрочем, пожалуйста:
Код:
VAR
A,B,C,P:Integer;
BEGIN
Write('A= ');
ReadLn(A);
Write('B= ');
ReadLn(B);
C:= A div B;
P:= A mod B;
WriteLn('C= ',C);
WriteLn('P= ',P);
ReadLn
END.