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

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

Решение:

program While30;
var
  A,B,Btemp,C:Real;
  K:integer;
begin
  Write('Введите A: ');
  Readln(A);
  Write('Введите B: ');
  Readln(B);
  Write('Введите C: ');
  Readln(C);
  K:=0;

  while (A-C>=0)do
   begin
    A:=A-C;
    Btemp:=B;
    while (Btemp-C>=0) do
    begin
     Btemp:=Btemp-C;
     inc(K,1);
    end;
   end;
  Writeln(k);
end.

program While30;

var

A,B,Btemp,C:Real;

K:integer;

begin

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

Readln(A);

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

Readln(B);

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

Readln(C);

K:=0;

while (A-C>=0)do

begin

A:=A-C;

Btemp:=B;

while (Btemp-C>=0) do

begin

Btemp:=Btemp-C;

inc(K,1);

end;

Writeln(k);

end.

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

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

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

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