Войти
Регистрация
Спроси ai-bota
В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия
Показать больше
Показать меньше
ррррррррор1
11.09.2021 08:49 •
Информатика
Ввести n чисел подсчитать количество случаев когда номер элемента равен его значению. в паскале
Показать ответ
Ответ:
9Тимур1111111121
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 оценок)
Популярные вопросы: Информатика
supgrigori
16.12.2022 15:08
Задание №1. Дано число k. Разработайте программу, которая определяла бы, является заданное число четным или нечетным. Если число нечетное, то выведите на экран «1», иначе ......
hohodge
05.02.2021 03:11
Написать программу, которая выводит на экран таблицу стоимости яблок в диапазоне от 100 г до 1 кг с шагом 100. стоимость за один кг взять произвольно (используя цикл с параметром)....
igorlenkov2017
17.12.2022 20:54
. Вычисли.112 . 4213 - 3332 - 3131 - 2...
aruzhanormanova
24.12.2021 05:02
Задана последовательность из n чисел. Найдите в ней число, встречающееся в ней ровно один раз, а из таких - минимальное. Входные данные В первой строке задано число n — длина последовательности...
Gamer2205395
03.06.2020 19:05
Портретная характеристика всех героев из комедии ревизор .....
JanieMoor
03.06.2020 19:05
Составьте предложения из групп слов. 1) absent , how many students , are , the lesson , from , today ? 2) on , are , that , whose notebooks , table?...
Асылхан12357399393
03.06.2020 19:05
Вдеревне простоквашино живут интересные персонажи: мышка, топтун, диктор, петушок. посмотри на них угадай кого как зовут объясни свой выбор. подобрать надо к кошке, собаке, ёжику...
Darya789
03.06.2020 19:05
Как соотносится в человеке мир внутренний и мир внешний?...
KatyaDro
03.06.2020 19:05
Если сможете два один уравнением другой с числами в коробке лежали карандаши. сестра взяла половину всех карандашей и еще пол карандаша.остальные 4 карандаша взял брат. сколько...
mariazeleznak2
03.06.2020 19:05
Придумайте предложении по теме подарок маме...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и 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.