Решаем задачи Абрамян на Паскале. While2

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

Решение:

program While2;
var
  A, B,temp :Real;
  Num :Integer;
begin
  Write('Введите A: ');
  Readln(A);
  Write('Введите B: ');
  Readln(B);
  temp:=A;
  Num:=-1;
  while temp>=0 do
   begin
    temp:=temp-B;
    inc(Num,1);
   end;
  Writeln(num);
end.

program While2;

var

A, B,temp :Real;

Num :Integer;

begin

Write('Введите A: ');

Readln(A);

Write('Введите B: ');

Readln(B);

temp:=A;

Num:=-1;

while temp>=0 do

begin

temp:=temp-B;

inc(Num,1);

end;

Writeln(num);

end.

Другие задачи из раздела While можно посмотреть здесь.

Комментарии 6

uses PT4;
var a,b:real;
var i:integer;
begin
  Task('While2');
read (a,b);
while b<a do
    begin
      a:=a-b;
      i:=i+1;
    end;
write(i);
end.

uses PT4;

var a,b:real;

var i:integer;

Task('While2');

read (a,b);

while b<a do

a:=a-b;

i:=i+1;

write(i);

Ответить

Anton

12.12.2014 в 15:00

Да, так красивше.

Ответить
- Кирилл
  
  12.12.2014 в 18:48
  
  И задачник ещё десятичные дроби тоже подставляет, так что a и b должны быть real.
  
  Ответить
  - Anton
    
    15.12.2014 в 16:52
    
    Ок. Поправли.
    
    Ответить
Bronislav

10.12.2017 в 21:38

while b lt= a do

Ответить
Bronislav

10.12.2017 в 21:39

while b &lt= a do

Ответить

Решаем задачи Абрамян на Паскале. While2

Комментарии:

Комментарии 6

Добавить комментарий Отменить ответ