Какое количество информации передается в простом арифметическом выражении? алфавит состоит из 16 знаков
137
488
Ответы на вопрос:
4.
var
ar1 : array [1..10] of integer; i,s: integer; begin s: = 0; for i : = 1 to 10 do read(ar1[i]);
for i : = 1 to 10 do if ar1[i] = i then s: =s+ ar1[i];
for i : = 1 to 10 do if ar1[i] = i then write(ar1[i], ' ');
writeln; writeln('summ = ',s); readln; end.
Популярно: Информатика
-
pups22329.09.2022 15:03
-
lira080427.08.2022 19:56
-
алексей04130.05.2023 05:14
-
ДуанбекМариям23.03.2021 11:51
-
SnopcovaAlina0726.01.2021 18:33
-
botuchenyy07.09.2022 06:53
-
molnij6326.09.2022 23:02
-
itsnastyad21.12.2021 04:01
-
fkireeva22.03.2023 21:55
-
Cверхъестественное26.03.2020 05:45