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

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

Решение:

program Integer29;
var
  A,B,C,Num,S: Integer;
begin
  Write('Введите целое число A: ');
  Readln(A);
  Write('Введите целое число B: ');
  Readln(B);
  Write('Введите целое число C: ');
  Readln(C);
  Num:=(A div C)*(B div C);
  Writeln('На прямоугольнике можно разместить ',Num,' квадратов');
  S:=A*B-Num*sqr(C);
  Writeln('Не занятая площадь прямоугольника равна ',S);
end.

program Integer29;

var

A,B,C,Num,S: Integer;

begin

Write('Введите целое число A: ');

Readln(A);

Write('Введите целое число B: ');

Readln(B);

Write('Введите целое число C: ');

Readln(C);

Num:=(A div C)*(B div C);

Writeln('На прямоугольнике можно разместить ',Num,' квадратов');

S:=A*B-Num*sqr(C);

Writeln('Не занятая площадь прямоугольника равна ',S);

end.

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

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

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

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