Даны две веревки А и В, А длинная В короткая нужно вычислить сколько раз В входит в А и остаток Х который не вошел?решить не используя деления и умножения.составить программу по Паскалю
Даны две веревки А и В, А длинная В короткая нужно вычислить сколько раз В входит в А и остаток Х который не вошел?решить не используя деления и умножения.составить программу по Паскалю
Гость
Ответ(ы) на вопрос:
Гость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.
Не нашли ответ?
Похожие вопросы