Есть ответ 👍

Нарисуйте на кругах эйлера результаты поисковых запросов:
а а: солнце & воздух
б: солнце | воздух | вода
в: солнце | воздух | вода | огонь
г: солнце | воздух
б а: мартышка | осёл | мишка
б: мартышка & осёл & мишка
в: мартышка & осёл
г: (мартышка & осёл) | мишка

в а: портрет & пейзаж & натюрморт
б: портрет | пейзаж
в: портрет | пейзаж | натюрморт
г: портрет | (пейзаж & натюрморт)

с а: мороз | солнце | день | чудесный
б: (мороз & солнце) | день
в: мороз & солнце
г: мороз & солнце & день & чудесный

210
230
Посмотреть ответы 1

Ответы на вопрос:


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.

Популярно: Информатика