По восприятия информация не бывает: -текстовой -аудиальной -символьной -графической

Компьютерлік ойын — ойнауға арналған компьютерлік бағдарлама. Оларға сондай-ақ видеоойындар мен мобильді ойындар да жатады. Қазіргі уақытта компьютерлік ойынды көбінесе видео ойын деп атайды, басқа сөзбен айтқанда, ойын жағдайы экран дисплейіне немесе теледидарға беріледі. Ойындар кітап немесе фильмдер негізінде жасалуы мүмкін. Кері болған жағдайлар да бар. 2011 жылдан бастап компьютерлік ойындар ресми түрде АҚШ-та жеке көркемдік формасы ретінде танылды.

Видеоойындар деп теледидарға қосып ойнайтын, немесе ойын автоматтардағы ойындарды атайды.

Мобильді ойындар Ұялы телефондармен, смартфондармен, қалта компьютерлермен ойналатын бағдарламаларды атайды

Объяснение:

Если то и мне с последним во

// PascalABC.NET 3.4.2, сборка 1785 от 06.09.2018

// Внимание! Если программа не работает, обновите версию!

type

 TRAIN = record

   ПунктНазначения: string;

   НомерПоезда: string;

   ВремяОтправления: DateTime

 end;

procedure ВводДанных(Список: List<TRAIN>);

begin

 var Поезд: TRAIN;

 var ЧЧММ: string;

 for var i := 1 to 6 do // 6 поездов

 begin

   Println('Ввод данных о поезде', i);

   Поезд.ПунктНазначения := ReadlnString('Пункт назначения:');

   Поезд.НомерПоезда := ReadlnString('Номер поезда:');

   repeat

     ЧЧММ := ReadlnString('Время отправления (ЧЧ:ММ):');

   until DateTime.TryParse(ЧЧММ, Поезд.ВремяОтправления);

   Список.Add(Поезд)

 end

end;

procedure ПоискПоездов(Список: List<TRAIN>; ПунктНазначения: string);

begin

 var Отобрано:=

     Список.Where(Поезд->Поезд.ПунктНазначения=ПунктНазначения);

 if Отобрано.Count>0 then

   foreach var Поезд in Отобрано do

     Writeln($'{Поезд.НомерПоезда} {Поезд.ВремяОтправления:HH-mm}')

 else

   Println('Нет поездов на это направление')

end;

begin

 var Поезда := new List<TRAIN>;

 ВводДанных(Поезда);

 ПоискПоездов(Поезда,ReadlnString('Куда едем?'))

end.