Перевести программу с pascalabc.net в vba
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.

alpengold1310    1   11.10.2019 18:07    3