Даны положительные числа A, B, C. ** прямоугольнике размера A × B размещено максимально...

Question

Даны положительные числа A, B, C. На прямоугольнике размера A × B размещено максимально возможное количество квадратов со стороной C (без наложений). Найти количество квадратов, размещенных на прямоугольнике. Операции умножения и деления не использовать. СДЕЛАТЬ ЧЕРЕЗ While30.

Answer 1

Var a,b,c,x,y,s: integer;     begin    readln (a,b,c);    x:=c; y:=c; s:=0;  while x<=a do     begin s:=s+1; x:=x+c end;  x:=s; s:=0;  while y<=b do     begin s:=s+x; y:=y+c end;  writeln (s)end.______________________<br>Примеры:
5 6 26
2 3 40

Comments

var a,b,c,x,y,s: integer;
begin
readln (a,b,c);
x:=c; y:=c; s:=0;
while x<=a do <br> begin s:=s+1; x:=x+c end;
x:=s; s:=0;
while y<=b do <br> begin s:=s+x; y:=y+c end;
writeln (s)
end.
______________________

Примеры:

5 6 2
6

2 3 4
0