Чиполлино построил домик и хочет уложить пол ** кухне плиткой. Чиполлино хочет купить...

Question

Чиполлино построил домик и хочет уложить пол на кухне плиткой. Чиполлино хочет купить плитку максимально возможного размера. Сколько потребуется плиток для укладки пола размером MxN, если резать плитку на части Чиполлино не умеет.
Входные данные: MxN - целые числа, размер пола.
Выходные данные: Целое число - кол-во плиток.

Comments

а пример можеш написать?

Answer 1

Program gt1;
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.

Answer 2

VB.

Dim m,n as integer
m=InputBox("Введите m")
n=InputBox("Введите n")

MsgBox("Количество необходимых плиток - " & m*n)

Comments

а если программу целиком писать, как это будет?

---

Так и будет..Или необходимо с загрузочной процедурой?

---

С загрузочной процедурой

---

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

---

Dim m,n as integer
m=InputBox("Введите m")
n=InputBox("Введите n")

MsgBox("Количество необходимых плиток - " & m*n)

---

EndSub

---

End sub **