Даны два целых числа A и B (A

+3

Var

A, B, n:integer;

Begin

n:=0;

Write ('A = ') ; ReadLn (A) ;

Write ('B = ') ; ReadLn (B) ;

While B>=A do

Begin

B:=B-A;

n:=n+1;

End;

WriteLn (n)

End.

Var

A, B:integer;

Begin

Write ('A = ') ;

ReadLn (A) ;

Write ('B = ') ;

ReadLn (B) ;

While B>=A do

B:=B-A;

WriteLn (B) ;

End.