Введите два числа и найдите частное от деления нацело первого числа на второе и остаток от деления нацело, используя только операцию вычитания

@альберт12 · Регистрация: 06.06.2012

Введите два числа и найдите частное от деления нацело первого числа на второе и остаток от деления нацело, используя только операцию вычитания.

@КонецСвета · 27.06.2012, 19:02

Pascal

uses crt;
var nn,n1,n2,r: integer;
begin
write('n1='); readln(n1);
write('n2='); readln(n2);
r:=0; nn:=n1;
while n1>n2 do
      begin
      r:=r+1;
      n1:=n1-n2;
      end;
writeln('Частное от деления ',nn,' на ',n2,' =',r);
writeln('Остаток этого деления=',n1);
readln;
end.

@альберт12 3 / 3 / 0 Регистрация: 06.06.2012 Сообщений: 79
		1
	Введите два числа и найдите частное от деления нацело первого числа на второе и остаток от деления нацело, используя только операцию вычитания 27.06.2012, 18:01. Просмотров 3427. Ответов 1 Метки нет (Все метки) Введите два числа и найдите частное от деления нацело первого числа на второе и остаток от деления нацело, используя только операцию вычитания. 0

Опции темы

Введите два числа и найдите частное от деления нацело первого числа на второе и остаток от деления нацело, используя только операцию вычитания

Решение