Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
hgcfm
21.10.2020 17:10 •
Информатика
Всем! , , с ) ввести n чисел. подсчитать количество случаев равенства двух чисел, идущих друг за другом.
Показать ответ
Ответ:
alicegluskin
02.10.2020 23:05
//Pascal ABC.NET Версия 2.2 Сборка 790
var i,k,n,a,b:integer;
begin;
readln(n);
i:=1;
repeat
if i mod 2<>0 then readln(a) else readln(b);
if b=a then inc(k);
inc(i);
until n+1=i;
writeln('Result:',k);
end.
Пример ввода:
3 1 1 2
Пример вывода:
Result:1
0,0
(0 оценок)
Популярные вопросы: Информатика
МиленаКриницына
15.02.2021 07:12
Найти юному все трехзначные числа, в десятичной записи которых нет одинаковых цифр и вывести эти числа в возрастающем порядке. составьте блок-схему алгоритма или опишите алгоритм...
alice1607
14.12.2022 12:34
С++ Элементы массива задать случайным образом в интервале -50 .. +50 . Элементы , равные 0, считать положительными а) В одномерном массиве , состоящем из 10 вещественных элементов...
sokolovskaymasha
03.04.2022 06:53
Опишите множества d1,d2,d3. заполните их соответственно числами 2,4,6,8; 0,1,2,3,5; 1,3,5,7,9. выполните над множествами операции объединения, разности и пересечения....
denchik20041
03.04.2022 06:53
Сожмите одномерный массив, удалив предшествующие минимальному элементу....
vika1852
03.04.2022 06:53
Составить алгоритм нахождения наибольшего из трех чисел и записать его на языке блок-схем...
Камилия311
03.04.2022 06:53
Составить алгоритм нахождения суммы трех чисел на языке блок-схем...
траппер
03.04.2022 06:53
Сколько «слов», каждое из которых состоит из семи различных букв, можно составить из букв слова выборка?...
Улан141
03.04.2022 06:53
Дано несколько чисел. вычислите их сумму. сначала вводите количество чисел n, затем вводится ровно n целых чисел....
ВладВишня
07.05.2022 16:51
Ойын программасын куру барысында кандай блоктарды колдандык...
Фарид55
18.03.2022 03:50
В театральной студии 78 учащихся .Коды учащихся записаны в информационной системе с минимального количества бит. Каков информационный объем в байтах сообщение о кодах 30 учащихся?...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
var i,k,n,a,b:integer;
begin;
readln(n);
i:=1;
repeat
if i mod 2<>0 then readln(a) else readln(b);
if b=a then inc(k);
inc(i);
until n+1=i;
writeln('Result:',k);
end.
Пример ввода:
3 1 1 2
Пример вывода:
Result:1