Уличный продавец газет получает а рублей с продажи каждой из первых 50 газет. С продажи каждой из остальных газет он получает на 20% больше. Разработайте программу, которая вычислит заработок продавца, если он продаст за день 200 газет.

Вопрос школьника по предмету Информатика

Уличный продавец газет получает а рублей с продажи каждой из первых 50 газет. С продажи каждой из остальных газет он получает на 20% больше. Разработайте программу, которая вычислит заработок продавца, если он продаст за день 200 газет.

Ответ учителя по предмету Информатика

Первый вариант:

Var

   A:real;

   k:integer;

Begin

Write(‘Стоимость одной газеты: ‘);ReadLn(A);

Write(‘Количество газет: ‘);ReadLn(k);

if k <= 50 then WriteLn(‘Заработок продавца: ‘,k*A,’ руб.’)

else WriteLn(‘Заработок продавца: ‘,(A*((k-50)*1.2+50)):0:2,’ руб.’)

End.

Var k:integer;

    S,A:real;

Begin

Write(‘Стоимость одной газеты: ‘);ReadLn(A);

Write(‘Количество газет: ‘);ReadLn(k);

if k <= 50 then S:=k*A

else S:=A*((k-50)*1.2+50);

WriteLn(‘Заработок продавца: ‘,S:0:2,’ руб.’);

End.

Пример работы программы:

Стоимость одной газеты: 30.15

Количество газет: 200

Заработок продавца: 6934.50 руб.