Перейти к содержимому


Помогите пожалуйста!!!


В этой теме нет ответов

#1 _azazello_

    Абитуриент

  • Пользователи
  • 4 сообщений
  • Пол:Мужчина
  • Город:Казахстан-г.Зыряновск
  • Интересы:Компьютеры, спорт, учеба.

Отправлено 14 Декабрь 2008 - 20:51

Задача:В автоколонне 25 автобусов. Автобус находится в ремонте с вероятностью 4%. За смену автобус может сделать от 8 до 10 рейсов. За рейс перевозится от 30 до 120 пассажиров. Какова выручка автоколонны, если известно, что льготники, составляющие 20% пассажиров, платят по 20, а остальные – по 30?

var i:integer(количество автобусов);
j:integer(количество рейсов);
k:integer(пассжиров за рейс);
s:integer(всего пассажиров);
begin
s:=0;
randomize;
for i:=1 to 25 do
for j:=8 to 10 do
if random <0.96 then
begin
k:=30+random(91);
s:=s+k;
end;
writeln('Выручка автоколонны за день составила',?,);
end.

Как спрограммировать выручку за день?
добавляю:
t:real;
t:=s*0.2*20+s*0.8*30;
ничего не выходит, может типы не совпадают?




Ответить



  


Количество пользователей, читающих эту тему: 1

0 пользователей, 1 гостей, 0 анононимных