Уличный торговец газет получает "a" рублей с реализации каждой из первых

Уличный торговец газет получает quot;aquot; рублей с реализации каждой из первых 50 газет. С продажи каждой из последующих газет он получает на 20% больше. Вычислите дневной заработок торговца, продающего quot;kquot; газет в денек. Зафиксируйте свои деянья на каждом из шагов решения задачи. 1-ый этап:quot;Начальные данныеquot; ... 2-ой шаг:quot;Соотношения, связывающие исходные данные и итог ... 3-ий шаг:quot;Блок-схемаquot; ... 4-ый шаг:quot;Программа на языке Паскальquot; ...

Задать свой вопрос
1 ответ
PASCAL program newspapers; var s,pricefor1NP, pricefor1NPwith20p, pricefor50firstNP, pricefornext150NPwith20p, TwoHNP: real; begin writeln(Нахождение цены за 200 проданных газет уличным продавцом); write(Введите сумму за 1 газету ); readln(pricefor1NP); if pricefor1NPlt;1 then writeln(Неправильный ввод! Числа от "0" до "-n" не могут быть стоимостями газет (это невозможно), следовательно: ); if pricefor1NPgt;1 then begin pricefor50firstNP:=pricefor1NP*50; s:=pricefor1NP/100; pricefor1NPwith20p:=s*20+pricefor1NP; pricefornext150NPwith20p:=pricefor1NPwith20p*150; TwoHNP:=pricefor50firstNP+pricefornext150NPwith20p; end; writeln(Торговец продал 200 газет за,TwoHNP:8:2, рублей); end.
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт