Даны положительные числа A, B, C. На прямоугольнике размера A x B размещено максимально возможное количество квадратов со стороной C (без наложений). Найти количество квадратов, размещенных на прямоугольнике

code: #pascal
program while30;
uses crt;
var a,b,c,ka,kb,k,d:integer;
begin clrscr;
write('a=');readln(a);
write('b=');readln(b);
write('c=');readln(c);
ka:=0;d:=c;
while d<=a do
 begin
  d:=d+c;
  ka:=ka+1;
 end;
kb:=0;d:=c;
while d<=b do
 begin
  d:=d+c;
  kb:=kb+1;
 end;
k:=ka*kb;
write('k=',k);
readln
end.

автор:

Поделиться:

Похожие статьи: