Question

Вычислить стоимость порций сыра весом 50,100,150 и тд до 950гр если цена одного кг =a руб Паскаль

Answer 1

var
  a, i: integer;

begin
  readln(a);
  i := 50;
  while (i <= 950) do
  begin
    writeln(String.Format('{0} гр. сыра стоит {1} руб.', i, a / 1000 * i));
    i += 50;
  end;
end.

Answer 2

Для вычисления стоимости порций сыра вам понадобится знать цену одного килограмма сыра. Вы указали, что цена одного килограмма равна "a" рублей Паскаля, но рубли Паскаля не являются действительной валютой. Пожалуйста, уточните цену сыра в обычной валюте, например, в российских рублях (RUB), долларах США (USD) или евро (EUR), чтобы я мог выполнить расчеты.