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

Question

Информатика

Парфён

26 июня, 20:47

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

+3

Ответы (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.