Чиполлино построил домик и хочет уложить пол на кухне плиткой. чиполлино хочет купить плитку максимально возможного размера. сколько потребуется плиток для укладки пола размером mxn, если резать плитку на части чиполлино не умеет. входные данные: mxn - целые числа, размер пола. выходные данные: целое число - кол-во плиток.
label 3,9;
var m,n,q,r,w,z,t:longint;
begin
read(m,n);
w:=m;
t:=n;
3:
q:=m div n;
r:=m mod n;
if (r=0)then goto 9;
m:=n;
n:=r;
goto 3;
9:
z:=(w div n)*(t div n);
write(z);
end.
Dim m,n as integer
m=InputBox("Введите m")
n=InputBox("Введите n")
MsgBox("Количество необходимых плиток - " & m*n)