Ответы на вопрос:
2081(1) / 2 = 1040(0) / 2 = 520(0) / 2 = 260(0) / 2 = 130(0) / 2 = 65(1) / 2 = 32(0) / 2 = 16(0) / 2 = 8(0) / 2 = 4(0) / 2 = 2(0) / 2 = 1 100000100001, переворачиваем число: 100001000001 теперь считаем кол-во нулей, их: 9.
2) const n=10; var a: array[1..n] of integer; k,i: integer; begin writeln('vvedite massiv='); for i : = 1 to n do readln(a[i]); k: =0; for i : = 1 to n do if a[i]> 0 then inc(k); writeln ('k=',k); readln; end. 1) const n=10; var a: array[1..n] of integer; s,p,i: integer; begin writeln('vvedite massiv='); for i : = 1 to n do readln(a[i]); s: =0; p: =1; for i : = 1 to n do if (a[i] mod 2=1) and (a[i] mod 3=0) then begin s: =s+a[i]; p: =p*a[i]; end; writeln('s=',s, ' p=',p); readln; end.
Популярно: Информатика
-
yasya14228.03.2020 21:53
-
sen4enkostas13.10.2021 09:12
-
liliverbovetska08.06.2021 10:55
-
lilli39312.06.2022 22:51
-
ЭймиКаннет16.12.2020 07:14
-
msnyamkina19.05.2021 14:31
-
gerty100017.05.2021 09:56
-
Книжнаябабочка30.10.2020 20:12
-
katrinmirz09.03.2022 05:53
-
Миша345620.07.2022 13:48