Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Х
Химия
Д
Другие предметы
Н
Немецкий язык
Б
Беларуская мова
М
Музыка
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
У
Українська література
Р
Русский язык
Ф
Французский язык
П
Психология
О
Обществознание
А
Алгебра
М
МХК
Г
География
И
Информатика
П
Право
А
Английский язык
Г
Геометрия
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
cdf412
17.02.2023 14:26 •
Информатика
Всем! , , с ) ввести n чисел. подсчитать количество случаев равенства двух чисел, идущих друг за другом.
Показать ответ
Ответ:
bigarnastia
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 оценок)
Популярные вопросы: Информатика
Приветусик11
13.11.2021 15:55
Дан фрагмент таблицы «Товар на складе». Введи данные в MS Excel и вычисли стоимость всего товара на складе. 1 Товар Цена за 1 шт. (руб.) 2 Пальто 6798,3 3 Куртка 2263 4 Шуба...
098714
02.05.2023 20:39
Дан прямоугольный треугольник с катетами a и b . найти гипотенузу c составить программу (информатика)...
Юма123
26.07.2020 21:00
Составить правильно ………………………………………………………………………………………….. Ann/have/does/a car? ………………………………………………………………………………………….. what’s/matter/the? ………………………………………………………………………………………….....
greatmagister
10.11.2021 13:19
Есть ли такой эффект когда при быстром вращении Продольного предмета тот будет походить на шар (как обычный цельный объект а не размазня) и при условиях что что будет космос...
Sveta0202
04.10.2022 07:45
Какими цифрами на карте Азии обозначены: Япония — Турция — Южная Корея —...
skripniklenok13
02.08.2022 16:18
4 ** Look at the picture. Write sentences with there was, there wasn t, there were and there weren t....
Tribbl2201
29.03.2020 12:17
Решить уравнение, применяя теорему, обратную теореме Виета: а) х² - 3х + 1 = 0; б) х² + 5 х + 9 = 0....
khsush
22.03.2020 23:11
Памогите химия. пример: II I (2) I I (1) Zn(NO3)2 + 2KOH Zn(OH)2 + 2KNO3 - в таком виде записываете все уравнения из третьего задания, иначе буду снижать оценки 3. Используя...
inna2briginetsg
20.09.2021 23:46
Что такое цикл .повесть .расскасчик.антитеза...
NAPAS228
29.03.2020 12:17
4. С какого прибора Галилео Галилей наблюдал за небесным миром? ...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и 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