Задача.Чиновник, ежемесячно берёт взятки в размере Х рублей. Величина Х непостоянная и колеблется от 0 до 150000 рублей. Автомобиль BMW 3, который хочет купить на взятки чиновник, стоит 1700000 рублей. Напишите программу, котор...
Задача.Чиновник, ежемесячно берёт взятки в размере Х рублей. Величина Х непостоянная и колеблется от 0 до 150000 рублей. Автомобиль BMW 3, который хочет купить на взятки чиновник, стоит 1700000 рублей. Напишите программу, которая вычислит, сколько месяцев потребуется чиновнику на сбор нужной суммы.Подумать как решить. Используется оператор random. Прочесть в интернете о его применении.
Написать программу в поскале!
заранее спасибо
Гость
Ответ(ы) на вопрос:
Гость//PascalABC.Net 3.0, сборка 1053
const
BMW=1700000;
var
s,x:longint;
n:byte;
begin
Randomize;
n:=0; s:=0;
Writeln('Месяц Сумма взятки Накоплено');
while s
Не нашли ответ?
Похожие вопросы