Question

Маша решила купить ткань для пошива штор, при чем шторы должны быть длинной Х метров. Ткань для штор стоит R руб. за квадратный метр. Сколько будет стоить ткань для штор, если ткань по ширине равна 90 см. Помогите пожалуйста! На языке Паскаль.

Answer 1

program ok;

var r, x, w: real;

begin

 writeln('Введите длинну штор в метрах');

 readln(x);

 writeln('Введите стоимость ткани за квадратный метр в рублях');

 readln(r);

 w:= 0.9;

 writeln('Стоимость ткани равна',(x*r*w), 'рубля');

end.

Answer 2

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

Для того, чтобы найти стоимость ткани для штор, нужно сначала найти площадь ткани, а затем умножить ее на цену за квадратный метр. Площадь ткани можно найти, умножив длину штор на ширину ткани. Но так как ширина ткани дана в сантиметрах, а длина штор в метрах, нужно перевести сантиметры в метры, разделив их на 100. Таким образом, площадь ткани равна X * 90 / 100 квадратных метров. Стоимость ткани равна площади ткани, умноженной на R рублей за квадратный метр. То есть, стоимость ткани равна X * 90 / 100 * R рублей.

На языке Паскаль это можно записать так:

program Shtrory;
var
  X, R, S, C: real;
begin
  writeln('Введите длину штор в метрах:');
  readln(X);
  writeln('Введите цену ткани за квадратный метр в рублях:');
  readln(R);
  S := X * 90 / 100; // площадь ткани в квадратных метрах
  C := S * R; // стоимость ткани в рублях
  writeln('Стоимость ткани для штор равна ', C:0:2, ' рублей.');
end.

Надеюсь, это поможет вам. Если у вас есть еще вопросы, я рад ответить.