Вычислить стоимость порций сыра весом 50,100,150 и тд до 950гр если цена одного кг =a руб Паскаль
Вычислить стоимость порций сыра весом 50,100,150 и тд до 950гр если цена одного кг =a руб Паскаль
Гость
Ответ(ы) на вопрос:
Гость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.
Не нашли ответ?
Похожие вопросы