Question

ПАСКАЛЬ! С использованием цикла WHILE (без цикла for)
Малыш и Карлсон живут в прямоугольной комнате длиной А метров и шириной В метров. Сколько им понадобится квадратных ковриков со стороной С метров, чтобы полностью покрыть пол комнаты? (Малыш и Карлсон не знают операции деления и умножения).

Answer 1

var A,B,C,S1,S2,k,i:integer;

begin

write('A, B, C:');

readln(A,B,C);

S1:=0;

while A>S1 do  

begin

k:=k+1;

S1:=S1+C;

end;

S2:=0;

while B>S2 do  

begin

i:=i+1;

S2:=S2+C;

end;

k:=k*i;

writeln('k = ',k);

end.