Даны положительные числа A, B, C. На прямоугольнике размера A x B размещено максимально возможное количество квадратов со стороной C (без наложений). Найти количество квадратов, размещенных на прямоугольнике
Категория: Delphi/Pascal
2013-01-20 22:21:40
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.
автор:
Поделиться: