4=2^2 > 2 бита для кодирования одного пикселя 2*640*200=256 000 бита=32 000 байта ответ 32 000 байта
Хохлова Иванович
05.10.2020
Const n=20; var a:array[1..n]of integer; i,b,k,c,f,g,h:integer; begin for i:=1 to n do a[i]:=Random(70)-20; for i:=1 to n do write(a[i],' '); writeln; for i:=1 to n do begin if (a[i] mod 5 = 0) and (a[i] mod 10<>0) or (a[i]=50) then begin b:=i; for b:=i to (n-1) do a[i]:=a[i+1]; end; end; for i:=1 to n do write(a[i],' '); write('введите к '); read(k); for i:=1 to n do begin if a[i] mod i = 0 then begin c:=i; for i:=n downto c+1 do begin a[i]:=a[i-1]; a[c+1]:=k; end;end;end; for i:=1 to n do write(a[i],' '); writeln; f:=0; g:=0; for i:=n downto 1 do begin if (a[i]>0) then f:=i; end; if a[f]=0 then write('нет положительных '); for i:=n downto 1 do begin if (a[i]<0) then g:=i; end; if (a[g]=0) then write('нет отрицательных '); if (a[f]<>0) and (a[g]<>0) then begin h:=a[f]; a[f]:=a[g]; a[g]:=h; end; for i:=1 to n do write(a[i],' '); writeln; end.
tanysha1990
05.10.2020
1. В Pascal недопустимы имена переменных, которые начинаются с цифры, которые разделены пробелом или дефисом. Так же запрещено использовать "зарезервированные" названия переменных. Верный ответ: e)45_A; и i)fg-л23.
2. В данном вопросе нужно расставить отношение, однако слева на 1 больше,чем справа, поэтому отвечаю как написан вопрос. В данном случае типы данных можно сразу разделить на "целочисленные" (integer, byte,word) и "с плавающей точкой" (real). каждый из них имеет свой диапазон значений: Byte [0..255] Word [0..65535] Integer [-32768..32767] Real [-39..38] (однако в разных версиях паскаля может различаться) Таким образом, числа с дробной частью сразу уходят к типу Real. Число 64000 автоматически отправляется к типу Word. 10351 - приходится на тип Integer. Число 14 остается для типа Byte.
ответ: a) A:=3.234=> b) Real b) Z:=14=> c) Byte c) B:=10351=> a) Integer d) K:=-0.2=> b) Real e) C:= 64000=> d) Word
3. a) Переменная - оператор присваивания - значение -; V:=7; b) Переменная Z - оператор присваивания - переменная Z + 30 - ; Z:=Z+30; ответ: a) V:=7; b) Z:=Z+30
4. Вывод на экран производится оператором Write(); а) Для вывода на экран символьной строки, в скобках оператора ставятся одинарные кавычки в которых пишется желаемое сообщение. Write('Имя'); b) Для вывода на экран числа,которое не является сообщением, число или же переменную в скобках оператора ставят после запятой, которая ставится после кавычек сообщения. Write(' ',400);
ответ: a)Write('Имя'); b) Write(' ',400);
5. a) Var => c) Раздел описания переменных b) Program => b) Раздел имени программы c) Uses => d) Раздел описания библиотечных модулей d) Begin …end => а) Раздел операторов
2*640*200=256 000 бита=32 000 байта
ответ 32 000 байта