Водной из кодировок unicode каждый символ окодируется 16 битами. определите размер следующего предложения в данной кодировке. сем раз отмерь, один раз отрежь! 1) 33 байт 2) 64 байт 3) 66 бит 4) 528 бит
162
299
Ответы на вопрос:
А) uses crt; var n,i,sum: integer; a: array[1..100] of integer; begin writeln('n? '); read(n); writeln('элементы? '); for i: =1 to n do read(a[i]); for i: =1 to n div 2 do sum: =sum+a[i]; writeln(sum); end.б)uses crt; var n,i,sum: integer; a: array[1..100] of integer; beginwriteln('n? '); read(n); writeln('элементы? '); for i: =1 to n dobeginread(a[i]); if i mod 2=0 then sum: =sum+a[i]; end; writeln(sum); end. в)uses crt; var n,i,mult: integer; a: array[1..100] of integer; beginmult: =1; writeln('n? '); read(n); writeln('элементы? '); for i: =1 to n dobeginread(a[i]); if i mod 2< > 0 thenmult: =mult*a[i]; end; writeln(mult); end.г)uses crt; var n,i,sum: integer; a: array[1..100] of integer; beginwriteln('n? '); read(n); writeln('элементы? '); for i: =1 to n dobeginread(a[i]); if (i mod 2=0) and (a[i] mod 2=0) then sum: =sum+a[i]; end; writeln(sum); end.
Популярно: Информатика
-
LEVATOR22.05.2020 05:57
-
Windows9504.11.2021 10:28
-
valeryaka22.02.2020 11:34
-
danila220819.09.2021 10:46
-
lekhalis200224.06.2023 19:33
-
Funik22813.07.2021 12:15
-
yliatroshenko13.04.2022 14:44
-
НеизвестныйНикнейм07.01.2022 20:42
-
KarinkaChernov08.09.2020 08:18
-
tanyaprokudina04.06.2020 12:38