Помогите составить программу на Паскале

[rkfdjxrf]

Помогите составить программу на Паскале

на станцию прибывают грузовые и пассажирские поезда. Определить по номеру вагона является ли он пассажирским, и посчитать кол-во пассажирских и грузовых поездом, проходящих за сутки, кол-во вагонов в грузовых поездах

 

[interacia]

Определить по номеру вагона является ли он пассажирским,

А как по номеру определить какой вагона является пассажирским а кокой нет.
Ходить заглядывать по вагонам? :turma:
Может есть какие то признаки в номере вагона по которым можно определить?

посчитать кол-во пассажирских и грузовых поездом

Я ходить по вагонам не буду.tehno014
Если кто ни будь принесет файлик с номерами или же сам забьет в программу?tehnosleep
Другими словами как будут поступать данные в программу?

Подозреваю что условие задания не полное.:tehnari_ru_020:

 

[rkfdjxrf]

номер вагона

нужно , чтобы программа сама определяла при забивании номера вагона какой он. например, пассажирские начинаются с 1-3, а грузовые 4 и т.д., т.е. задать произвольно

 

[interacia]

Вот вам задачка.
Может подойдёт?

program Poezda;
var
a,Kol,i:integer;
Vagon,kolPas,kolGruz:integer;
begin
i:=0;
a:=1;
kolPas:=0;
kolGruz:=0;
Vagon:=0;
Writeln('предположим что все номера поездов 4 значные');
Writeln('Тогда номера начинающиеся на 1 2 3 будем считать пассажирскими');
Writeln('Вводите номера вагонов пока не надост а когда надоест введите цифру 0');
While (a<>0) do
begin
inc(i);
Writeln('Номер ',i,')поезда ');
Readln(a);
if ((a div 1000)<4)and((a div 1000)>0) then
  begin
   inc(kolPas);
  end;
if ((a div 1000)>3)and((a div 1000)>0) then
  begin
   inc(kolGruz);
   Write('введите количество вагонов в грузовом составе ',a,':');
   Readln(kol);
   Vagon:=Vagon+kol;
  end;
end;
Writeln('кол-во пассажирских поездов',kolPas);
Writeln('кол-во грузовых поездов',kolGruz);
Writeln('кол-во вогонов в грузовых поездах',Vagon);
end.

 

[rkfdjxrf]

спасибо большое