Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
sashanepasha
16.10.2020 11:47 •
Информатика
Ввести n чисел подсчитать количество случаев когда номер элемента равен его значению. в паскале
Показать ответ
Ответ:
kirill880
10.07.2020 18:29
Var i, x, n, s: integer;
begin
write('n='); readln(n);
for i := 1 to n do begin
readln(x);
if x = i then s := s + 1;
end;
writeln('таких чисел = ', s);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
dfghfgjkhfdjkgh
04.03.2022 01:54
1). укажите минимальный объем памяти в кбайт, достаточный для хранения растрового изображения размеров 2048х2048 пикселей с 128 цветами в палитре. 2). для хранения растрового...
polinfasdfg
21.11.2020 23:30
Склавиатуры вводят имя, отчество и фамилию. составьте программу, которая выводит сначала фамилию, потом имя, а затем отчество....
Mister2265
21.11.2020 23:30
Написать алгоритм максимального среди четырех целых чисел. заранее...
вика3879
09.01.2021 00:39
Типовые на паскале! массивы дано: n - целое семизначное число, вводится пользователем. проверка на семизначность обязательна! выполнить: записать в массив a[i] цифры...
2006n
11.05.2020 06:28
Составьте программу, которая в строке заменит букву р на л. например, рыбки плавали в пруду. ответ: лыбки плавали в плуду....
vikab4
26.07.2020 17:44
Счетно-перфорационная машина дата где и кем был создан...
543421
26.07.2020 17:44
Составить программу решения ах2+вх+с=0,а,в не равно нулю.проверить случай ,когда дискриминант болmше нуля меньше нуля и равен нулю....
vi600081
20.03.2020 18:29
Вбаскетбольную секцию принимаются юноши достигшие 13 лет.составить программу юношей в секцию.результат выдавать (принят,не принят)...
ЮлічкаВдовіна
20.06.2021 00:09
Сторона ромба равна 73,а диоганаль равна 110.найти площать ромба?...
lisi4ka228666
20.06.2021 00:09
Вчём состоит отличие человека от животного? его жизнедеятельность заключается в при и собирательстве, основанных на системе условных и безусловных рефлексов, инстинктов...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
begin
write('n='); readln(n);
for i := 1 to n do begin
readln(x);
if x = i then s := s + 1;
end;
writeln('таких чисел = ', s);
end.