Как убрать нули в начале программы? - Free Pascal

Формулировка задачи:

Театральная площадь в столице Берляндии представляет собой прямоугольник n × m метров . По случаю очередного юбилея города, было принято решение о замощении площади квадратными гранитными плитами. Каждая плита имеет размер a × a. Какое наименьшее количество плит понадобиться для замощения площади? Разрешено покрыть плитами большую поверхность, чем театральная площадь, но она должна быть покрыта обязательно. Гранитные плиты нельзя ломать или дробить, а разрешено использовать только целиком. Границы плит должны быть параллельны границам площади. Правильно ли я решил эту задачу?

                    Листинг программы
                
 
                        
                          
                    
Program p;
var n,m,a,k:real;
begin
writeln(n,m,a);
readln(n,m,a);
k:=0;
while n>0 do
begin 
n:=n-a;
k:=k+1;
end;
while m>0 do
begin 
m:=m-a;
k:=k+1;
end;
writeln(k);
end.

Решение задачи: «Как убрать нули в начале программы?»

Листинг программы

var
  n, m, a: real;
  k1, k2: integer;
 
begin
  writeln('Введите ширину, длину площади и сторону плиты: ');
  readln(n, m, a);
  k1 := 0; k2 := 0;
  while n > 0 do
  begin
    n := n - a;
    k1 := k1 + 1;
  end;
  while m > 0 do
  begin
    m := m - a;
    k2 := k2 + 1;
  end;
  writeln('Потребуется ', k1 * k2,' плит');
end.

Объяснение кода листинга программы

В данном коде задача заключается в расчете количества плиток, необходимых для покрытия площади заданного размера. В первой строке объявляются переменные:

n - ширина площади
m - длина площади
a - сторона плитки
k1, k2 - счетчики, используемые в алгоритме Затем выводится запрос на ввод данных и считываются значения переменных n, m, a. Далее, в циклах while происходит вычисление количества плиток, необходимых для покрытия площади. Цикл while выполняется до тех пор, пока значение переменной n или m больше нуля. На каждой итерации значение переменной уменьшается на значение переменной a. После выполнения всех итераций циклов, выводится количество плиток, необходимых для покрытия площади. Список действий:
Объявление переменных
Вывод запроса на ввод данных
Считывание значений переменных
Инициализация счетчиков k1, k2
Цикл while для переменной n
- Вычитание значения переменной a из значения переменной n
- Увеличение счетчика k1 на 1
Цикл while для переменной m
- Вычитание значения переменной a из значения переменной m
- Увеличение счетчика k2 на 1
Вывод количества плиток, необходимых для покрытия площади (k1 * k2)