Лучшие помощники
- Megamozg 2205 б
- Matalya1 1800 б
- DevAdmin 1720 б
- arkasha_bortnikov 900 б
- Dwayne_Johnson 870 б
30 ноября 2022 06:38
843
Уличный продавец газет получает а рублей с продажи каждой из первых 50 газет. С продажи каждой из остальных газет он получает на 20% больше. Разработайте программу, которая вычислит заработок продавца, если он продаст за день 200 газет.
1
ответ
Первый вариант:
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 руб.
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 руб.
0
·
Хороший ответ
2 декабря 2022 06:38
Остались вопросы?
Еще вопросы по категории Информатика
Какие команды присваивания составлены правильно? A:=X A=X+2 A=X 6+X=:A...
Ячейка памяти компьютера состоит из однородных элементов называемых 1)кодами 2) битами 3)цифрами 4) коэффициент ...
Особенность мультимедийных продуктов: 1) наличие текста 2) возможность интерактивного взаимодействия 3) наличие графических изображений 4) наличие...
Решите уравнение. Ответ запишите в пятеричной системе счисления. В ответе не надо указывать основание системы счисления. Примите к сведению, что при...
Информатика Якласс 7 класс...