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

Решение задачи №29

program twenty_nine;
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.

Назад