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

Question

Информатика

Донат

24 февраля, 05:23

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

+4

Ответы (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.