Question

Паскаль Вариант 1 1. Вывести на экран стоимость сыра весом 50, 100, 150, 200 …1000 гр. по цене 150 руб. за 1 кг. 2. с шагом 1

Answer 1

var

   a, i: integer;

   begin

   read (a)

   for i := 0 to 20 do

   {

   wrileln (a * 150 / 100);

   a := a + 50;

   }

end.

что то типо того

Answer 2

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

pascalCopy code
program CheeseCost;

var
  weight, step: integer;
  pricePerKg: real;

begin
  pricePerKg := 150; // цена за 1 кг сыра (в рублях)
  step := 50; // шаг веса (в граммах)
  
  writeln('Вес (гр.)   Стоимость (руб.)');
  
  for weight := 50 to 1000 step step do
  begin
    writeln(weight:8, (weight / 1000 * pricePerKg):15:2);
  end;
end.

Этот код выводит на экран стоимость сыра в зависимости от его веса. Вы можете изменить значения переменных pricePerKg и step согласно вашим потребностям.