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

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.

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.