Введите два числа (например A=45 и В=8) и найдите их частное от деления нацело(в переменной А), используя только операцию вычитания.
More Questions From This User See All
Copyright © 2024 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
Код программы:
var A, B, sum:integer;
begin
writeln('Введите A');
readln(A);
writeln('Введите B');
readln(B);
sum := 0 ;
while A >= B do begin
A := A - B;
sum:= sum + 1;
end;
writeln('Частное = ', sum);
end.