Паскаль! с использованием цикла 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.

// PascalABC.NET 3.3, сборка 1540 от 16.09.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var x:=-5.0;
  Writeln('  x       x*x');
  repeat
    Writeln(x:4:1,x*x:10:2);
    x+=0.5
  until x>5
end.

Результат
  x       x*x
-5.0     25.00
-4.5     20.25
-4.0     16.00
-3.5     12.25
-3.0      9.00
-2.5      6.25
-2.0      4.00
-1.5      2.25
-1.0      1.00
-0.5      0.25
 0.0      0.00
 0.5      0.25
 1.0      1.00
 1.5      2.25
 2.0      4.00
 2.5      6.25
 3.0      9.00
 3.5     12.25
 4.0     16.00
 4.5     20.25
 5.0     25.00

// PascalABC.NET 3.3, сборка 1540 от 16.09.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var a:=ArrRandom(12,0,50); a.Println;
  var m:=a.Average;
  Write('Элементы, меньшие среднего значения: ');
  Writeln('Таких элементов ',a.Where(x->x<m).Println.Count)
end.

Пример
34 12 5 35 29 15 23 22 41 27 12 36
Элементы, меньшие среднего значения: 12 5 15 23 22 12
Таких элементов 6

begin
  var a:=ArrRandom(13,0,100); a.Println;
  Write('Элементы, меньшие 50: ');
  Writeln('Таких элементов ',a.Where(x->x<50).Println.Count)
end.

Пример
25 17 68 71 27 37 83 32 63 87 29 12 34
Элементы, меньшие 50: 25 17 27 37 32 29 12 34
Таких элементов 8