Решение задач по теме "Действия с целыми числами в 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.