Паскаль! с использованием цикла while (без цикла for)
малыш и карлсон живут в прямоугольной комнате длиной а метров и шириной в метров. сколько им понадобится квадратных ковриков со стороной с метров, чтобы полностью покрыть пол комнаты? (малыш и карлсон не знают операции деления и умножения).
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.