После полета юрия гагарина в 1961 практически каждый мальчик хотел стать космонавтом. прошло уже более полувека, но профессия космонавт все так же престижна. к сожалению, не каждый желающий может пройти отбор, существуют высокие требования к уровню подготовки будущих космонавтов, а также ограничения по антропометрическим показателям. например, рост космонавта не может быть больше 190 см и меньше 150 см. напишите программу, которая считывает рост претендентов в отряд космонавтов до тех пор, пока не будет введен «! ». а затем выводит на первой строчке количество подходящих кандидатур, а на второй строке – минимальный и максимальный рост участников, отобранных в новый отряд космонавтов. гарантируется, что в отряд отберутся как минимум два летчика-космонавта.

uses crt; var

  a,b,c,min: integer; begin  writeln('введи три числа: ');   readln(a,b,c);   min: =a;   if b< min then min: =b;   if c< min then min: =c;   writeln('наименьшее из этих чисел:   ',min); end.

объем информации одного измерения будет равна 7 бит ();

станция сделала 8192 измерения - умножим на кол-во информации, необходимое для записи одного измерения:   8192*7=57344 бит=7168 байт = 7 килобайт

программа №4program str999; uses crt; var s: string; begin writeln('введіте фразу'); read(s); if (s='край озер') then writeln ('край озер лесов и рек'); if (s='я учусь в школе') then writeln ('я учусь в 10-м классе') end.

№5program p_1; uses crt; var s: string; begin writeln('введите фразу'); read(s); if (s='моя родина беларусь') then writeln ('беларусь моя родина'); if (s='люблю цябе мой родны кут') then writeln ('мой родны кут люблю цябе') end.  

var a,b,c,d,e: real;

begin

  read(a,b,c,d);

  e: =(a+b+c+d)/4;

  writeln(e: 0: 4);

end.