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

Question

Информатика

Ксанфиппа

1 августа, 18:58

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

+1

Ответы (1)

Знаете ответ?

Вадимка · 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.