Используя только операции сложения и вычитания, нацело разделить a на b

@CHUDAK01 · Регистрация: 02.12.2014

Author24 — интернет-сервис помощи студентам

Даны натуральные a и b. Используя только операции сложения и вычитания, нацело
разделить a на b (найти частное от деления и остаток).

@Puporev · 12.12.2014, 19:24

Pascal

var a,b,ch,os:integer;
begin
repeat
writeln('Введите натуральные a,b');
readln(a,b);
until(a>0)and(b>0);
ch:=0;
while abs(a)>=abs(b) do
 begin
  ch:=ch+1;
  a:=a-b;
 end;
os:=a;
writeln('Частное=',ch,' остаток=',os)
end.

@CHUDAK01 0 / 0 / 0 Регистрация: 02.12.2014 Сообщений: 17
		1
	Используя только операции сложения и вычитания, нацело разделить a на b 12.12.2014, 18:54. Показов 1800. Ответов 1 Метки нет (Все метки) Даны натуральные a и b. Используя только операции сложения и вычитания, нацело разделить a на b (найти частное от деления и остаток). 0

	12.12.2014, 19:24

Используя только операции сложения и вычитания, нацело разделить a на b

Решение