Question

Даны две веревки А и В, А длинная В короткая нужно вычислить сколько раз В входит в А и остаток Х который не вошел?решить не используя деления и умножения.составить программу по Паскалю

 

 

Answer 1

uses crt;
var a,b,ans,x:real;
begin
writeln('Введите длины веревок A B:');
read(a,b);
while a>=b do
begin
a:=a-b;
ans:=ans+1;
end;
x:=a;
writeln('Ответ: ',ans);
writeln('Остаток: ',x);
end.