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

Question

Информатика

Флоренция

24 февраля, 13:21

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

+1

Ответы (1)

Знаешь ответ?

Альбинка · 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.