1) правильно ли определён тип величины? a. количество тетрадей - вещественный тип b. кличка собаки - символьный тип с. вес контейнера - целый тип 2) укажите тип величины, если значение равно: 1. ‘компьютер’ 2. 115 3. 0.15 3) из значений выберите допустимые для величин и впишите в ячейки напротив подходящего типа: ‘55’; 30; -46; -0.126; ‘солнце’; 15.003; ‘g’ 1. целого типа (byte) 2. вещественного типа 3. (символьного) типа 4. строкового типа 5. целого типа (integer)

1)

a нет

b нет

c нет

2)

1строковый тип

2целый тип (integer) 

3вещественный тип

3)

1- 30 -46

2- 30 -46 -0.126 15.003

3- 'g'

4-  ‘солнце’ '55' 'g'

5- 30 -46

1) на что мы используем интернет (контакты, поиск информации для обучения, поиск инфы для жизни и т. д. ) 2) чем заменить все эти вещи без инета (телефон и письма, учебники, и т. д.) 3) в чём разные способы хуже или лучше (напр, по телефону можно так же быстро поговорить, как и через инет, но нельзя быстро переслать печатный текст. бумажное письмо приятно писать и получать, но оно идёт слишком медленно, контакт по интернету самый быстрый, но немного теряется тепло живого общения) и так по всем пунктам. 4) большие области на нашей планете, где нет инета или он плохой (медленный) и редко встречается (африка). 5) в некоторых восточных странах инет регулируется на государственном уровне (китай, корея) 5) вывод - в принципе, без инета прожить можно, но во многих областях без него гораздо хуже и медленнее.

Вариант №1 (не совсем удачный, как было отмечено в комментариях). //pascalabc.net (версия 3.1, сборка 1210 от 29.03.2016) var n,i,m: integer; flag: boolean; begin   readln(n);   flag: =false;   if (n mod 2< > 0)then i: =n-1 else i: =n;   while i> 0 do begin          if power(2,i)< =n then begin           write(power(2,i),' '); flag: =true;       end;       i: =i-2; end; if not flag then writeln(0); end. тест №1 1025 1024 256 64 16 4 тест №2 1 0 вариант №2 var a,i,n: integer; begin   a: =1; readln(n);   i: =trunc(log2(n)); //получим степень двойки для n   //если i нечетное,   //то первое искомое число получаем путем сдвига влево на i-1 в   //двоичном представлении числа иначе сдвиг на i   if (i mod 2)=1 then a: =a shl(i-1) else a: =a shl i;   //далее получаем числа сдвигая вправо на 2 разряда   //в двоичном представлении числа   while a> =2 do begin       write(a,' ');       a: =a shr 2;   end; end. тестовое решение: 2147483647 1073741824 268435456 67108864 16777216 4194304 1048576 262144 65536 16384 4096 1024 256 64 16 4