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

program n1;   const n=10;   var  mas: array[1..n] of integer;   i: integer;   max,min,sum: integer;   ar: real;   begin    for i: =1 to n dobegin  mas[i]: = random (20)-10;   write(mas[i],' ');   writeln  end;   max: =1;     for i: =2 to n do    if mas[i]> mas[max] then    max: =i;     writeln;     writeln('максимаьное значение a[',max,']= ',mas[max]);       min: =1;   for i: =2 to n do    if mas[i]< mas[min] then    min: =i;     writeln;     writeln(минимальное значение a[',min,']= ',mas[min]);       for i: =1 to n do    sum: =sum+mas[i];       ar: =sum/n;     writeln;     writeln('среднее арифметическое =  ',ar);     end.{немного нерационально но работает=)}

на пиксель приходится 512*8/32²=4 бита.  2^4=16 цветов.

может кто перепишет на паскаль

вот на c:

#include < stdio.h> int main(void){  int km, day;   day = 1;   km = 10;   while (km < = 200)  {  if (km == 20)  {    printf("20km in %d day\n", day);     }     km += km / 10;   day++;   }  printf("< 200km in %d day", day);   printf("\n");   system("pause");   return 0; }

весь текст к бит к=7680 бит/с.* 90с =691200 бит

всего символов с   с=691200 бит/16бит=43200

всего страниц   ц   =ц=43200/400=108 с