Нарисуйте на кругах эйлера результаты поисковых запросов:
а а: солнце & воздух
б: солнце | воздух | вода
в: солнце | воздух | вода | огонь
г: солнце | воздух
б а: мартышка | осёл | мишка
б: мартышка & осёл & мишка
в: мартышка & осёл
г: (мартышка & осёл) | мишка
в а: портрет & пейзаж & натюрморт
б: портрет | пейзаж
в: портрет | пейзаж | натюрморт
г: портрет | (пейзаж & натюрморт)
с а: мороз | солнце | день | чудесный
б: (мороз & солнце) | день
в: мороз & солнце
г: мороз & солнце & день & чудесный
210
230
Ответы на вопрос:
var a: array[1..100]of integer; i,n,k: integer; beginreadln(n); for i: =1 to n doreadln(a[i]); k: =0; for i: =1 to n do beginif a[i]=i then k: =k+1; end; writeln(k); end.
Популярно: Информатика
-
ArtyomFoshan05.10.2022 17:18
-
Sudzuky12.02.2020 13:44
-
СуРиКан20060613.02.2021 03:19
-
janelens19.03.2021 06:24
-
Thelow2611.05.2021 09:40
-
alexandraselivanova05.09.2022 23:21
-
karallisa02.06.2022 22:04
-
kefir918.01.2023 03:31
-
qwwwq016.01.2021 17:26
-
Danьka32332306.03.2022 23:35