Даны положительные числа A и B (A > B). На отрезке длины A размещено максимально возможное количество отрезков длины B (без наложений). Не используя операции умножения и деления, найти количество отрезков B, размещенных на отрезке A

Категория: Delphi/Pascal
2013-03-24 19:17:27
code: #pascal
program while2;
 
uses crt;
 
var a,b,k:integer;
 begin 
  clrscr;
  writeln('Введите число а ');
  readln(a);
  writeln('Введите число b (B<A) ');
  readln(b);
if b>a then 
  k:=0
else
  begin
    k:=0;
  while a>b do
    begin
      a:=a-b;
      k:=k+1;
    end;
  end;
writeln('Кол-во отрезков ',k);
readln;
end.
Поделиться:

Похожие статьи:

теги: положительное, отрезок