Вкоробке находятся 32 разноцветных карандаша. какое количество информации (в битах) содержится в сообщении, что из коробки вытащили зеленый карандаш?
156
272
Ответы на вопрос:
// pascalabc.net 3.2, сборка 1417 от 28.03.2017 // внимание! если программа не работает, обновите версию! begin var a: =arrrandom(readinteger('n=',20); a.println; var flag: =true; var k: =0; var ap: =a[0]; for var i: =1 to a.length-1 do begin if a[i]> ap then begin if flag then begin k+=1; flag: =false end end else flag: =true; ap: =a[i] end; writeln('кол-во участков возрастания: ',k) end. пример n= 15 -17 -2 -11 14 6 -3 -16 13 -13 -12 -16 2 15 -1 -20 кол-во участков возрастания: 5
Популярно: Информатика
-
bellatrissa2130.12.2020 06:52
-
antonshv313p012l523.04.2022 11:50
-
МаленькаяПианистка16.10.2022 11:34
-
sofiya1303115.06.2021 01:37
-
vinks290510.11.2022 19:00
-
yakubchik200419.01.2023 21:52
-
Неко16322.06.2022 07:49
-
Lina21210901.03.2020 09:12
-
rrrrrrrrtttttttttyyy20.04.2020 07:51
-
ден100531.05.2023 06:32