"Программы без ошибок можно написать
двумя способами, но работает — третий"
Алан Джей Перлис

Решение задач по теме "Действия с целыми числами в Pascal"

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

program three;
var
   a,b,c,s,kol:integer;
begin
   write('A = ');
   readln(a);
   write('B = ');
   readln(b);
   write('C = ');
   readln(c);
   
   kol:=(a div c)*(b div c);
   s:=(a*b)-(kol* sqr(c));
   writeln('Количество = ',kol);
   writeln('Незанятая площадь = ',s);
end.

 

 

Назад