Решите задачу,используя while.Как можно подробней. Даны положительные числа A и B (A больше B). На отрезке длины A раз- мещено максимально возможное количество отрезков длины B (без нало- жений). Не используя операции умножен...
Решите задачу,используя while.Как можно подробней. Даны положительные числа A и B (A > B). На отрезке длины A раз- мещено максимально возможное количество отрезков длины B (без нало- жений). Не используя операции умножения и деления, найти количество отрезков B, размещенных на отрезке A.
Гость
Ответ(ы) на вопрос:
Гостьvar a,b,k:integer;
begin
k:=0; {обнуляем счетчик} write('a=');
read(a); {вводим число А}
write('b=');
read(b); {вводим число В}
while a>b do {пока А больше В выполняем действия}
begin
a:=a-b; {отрезку мы присваиваем значение, так скажем, укороченного отрезка}
k:=k+1; {счетчик увеличивается на единицу}
end;
writeln('k=',k); {выводим количество раз}
end.
Не нашли ответ?
Похожие вопросы