Question

помогите написать программу для решения этой задачи на паскале:"хватит ли N= 180 штук кафельной плитки шириной A= 0,2 м шириной B=0,3 м для покрытия пола в помещении площадью S=12 м²?"

Answer 1

Var a,b,s:real; n:integer;
begin
n:=180;
s:=12;
a:=0.2;
write('Ширина ',a:3:1,' - ');
if a*a*n>=s then writeln('Yes')
else writeln('No');
b:=0.3;
write('Ширина ',b:3:1,' - ');
if b*b*n>=s then writeln('Yes')
else writeln('No');
end.

Результат:
Ширина 0.2 - No
Ширина 0.3 - Yes

Answer 2

Конечно, вот программа на языке Pascal, которая решает данную задачу:

pascalCopy code
program TileCoverage;

var
  N: Integer;  // Количество плиток
  A, B: Real;  // Размеры плитки (метры)
  S: Real;     // Площадь помещения (квадратные метры)

begin
  // Ввод данных
  Write('Введите количество плиток N: ');
  Readln(N);
  
  Write('Введите ширину плитки A (м): ');
  Readln(A);
  
  Write('Введите длину плитки B (м): ');
  Readln(B);
  
  Write('Введите площадь помещения S (м²): ');
  Readln(S);
  
  // Рассчет
  if N * (A * B) >= S then
    Writeln('Достаточно плиток для покрытия пола.')
  else
    Writeln('Недостаточно плиток для покрытия пола.');
end.

Программа запрашивает у пользователя количество плиток, размеры плитки и площадь помещения, а затем выполняет расчет и выводит сообщение о том, достаточно ли плиток для покрытия пола или нет.