Question

Pascal.ABC составьте программу! На Марс отправляется туристический космолет, который может иметь на борту не более 750 пассажиров. Туристы прибывают группами, количество человек в которых различно. Составьте программу, регулирующую наполняемость космолета, а также вычисляющую необходимое количество гидов (по одному на группу).

Answer 1

Program p1;
uses crt;
var a,g,i,s,s2:integer;
begin

I:=1;
s:=0;

  while i<>0 do begin
     read(a);
    s:=s+a;
     If s>=750 then begin
      i:=0;
    end;
    
      If s<=750 then begin
        g:=g+1;
        end;

end;

  If s>750 then begin
     s2:=s-750;
    writeln( ' Не осталось мест для  ',s2);
 end;

    If s>750 then begin
      s2:=s-a;
     writeln('Всего попало на космолёт  :',s2);
  end;
  749
writeln('Понадобилось гидов :',g);
end.

Answer 2

Для решения этой задачи на языке программирования Pascal (ABC) можно написать следующую программу. В данном примере мы предполагаем, что пользователь будет вводить количество туристов в каждой группе.

pascalCopy code
program MarsTourists;

const
  MaxCapacity = 750;

var
  totalPassengers, groupSize, numGroups, numGuides: integer;

begin
  writeln('Добро пожаловать на борт космолета на Марс!');

  totalPassengers := 0;
  numGuides := 0;

  repeat
    write('Введите количество туристов в группе (или 0 для завершения ввода): ');
    readln(groupSize);

    if groupSize > 0 then
    begin
      if (totalPassengers + groupSize) <= MaxCapacity then
      begin
        totalPassengers := totalPassengers + groupSize;
        numGuides := numGuides + 1;
      end
      else
        writeln('Извините, группа из ', groupSize, ' человек не может присоединиться к поездке на Марс из-за ограничения вместимости.');
    end;
  until (groupSize <= 0) or (totalPassengers >= MaxCapacity);

  writeln;
  writeln('Итого туристов на борту космолета: ', totalPassengers);
  writeln('Необходимое количество гидов: ', numGuides);
  writeln('Приятного полета на Марс!');
end.

Программа позволяет вводить количество туристов в каждой группе до тех пор, пока общее количество туристов не превысит максимальную вместимость космолета (750 пассажиров) или пока не будет введено значение 0 (чтобы завершить ввод). Программа также подсчитывает количество необходимых гидов, где каждый гид сопровождает одну группу туристов. Если группа туристов не может присоединиться к поездке на Марс из-за ограничения вместимости, программа выдаст соответствующее сообщение.