Question

Написать программу для вычисления цены ткани, количество и стоимость вводятся с клавиатуры Pascal

Answer 1

Var
k, c: integer;
begin
write('Введите количество: ');
readln(k);
write('Введите стоимость: ');
readln(c);
writeln('Цена равна ', c/k);
end.

Answer 2

Конечно! Вот пример программы на языке Pascal, которая вычисляет стоимость ткани на основе введенного пользователем количества и цены:

pascalCopy code
program Вычисление_стоимости_ткани;

var
  количество: integer;
  цена: real;
  стоимость: real;

begin
  writeln('Введите количество ткани:');
  readln(количество);
  
  writeln('Введите цену за метр ткани:');
  readln(цена);
  
  стоимость := количество * цена;
  
  writeln('Общая стоимость ткани: ', стоимость:0:2);
  
  readln;
end.

В этой программе мы используем переменные количество, цена и стоимость. Сначала мы запрашиваем у пользователя количество ткани и цену за метр. Затем вычисляем общую стоимость, умножая количество на цену. Наконец, выводим результат на экран.

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