tutotveti.ru
Предметы
Биология
Українська мова
Музыка
Французский язык
Физика
МХК
Обществознание
Психология
ОБЖ
Право
Беларуская мова
Литература
Химия
Українська література
Экономика
Немецкий язык
География
Информатика
Қазақ тiлi
Геометрия
Английский язык
Русский язык
Окружающий мир
Алгебра
История
Другие предметы
Видео-ответы
ПОИСК
Войти
Регистрация
Информатика
Всем! , , с ) ввести n
Всем! , , с ) ввести n чисел. подсчитать количество случаев равенства двух чисел, идущих друг за другом.
gusarova17
2 08.07.2019 22:10
1
Ответы
Zheka1163
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
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
далекоотсолнца
04.07.2019 05:20
Сообщение об устройстве для работы с данными...
NecChanel
04.07.2019 05:20
5примеров кто может быть каналом связи,среди источника и получателя?...
mira132
14.09.2019 07:00
Зклавіатури вводять платежі,які перерахували платежі фірми в сумах w1,w2,w3(грошових одиниць).вивести найбільшу та найменьшу суму. решить...
Slrudyko
14.09.2019 07:00
Выяснить, является ли сумма двух самых минимальных цифр числа n четной. (программа на c++,кому не сложно...
rayoz
03.04.2019 14:47
1.вывести в столбик 10 раз слово рота 2. вывести в квадрат всех целых чисел от 0 до а ( значение а вводится с клавиатуры ) 3. напечатать таблицу перевода 1,2,…,6 фунтов в граммы (...
Ekaterinakozlik
03.04.2019 13:25
Пиксел имеет rgb цвет 24 битный, какой код имеют : а)белый пиксел , б)чёрный пиксел, в)синий пиксел, г)желтый пиксел....
qmerry128
03.04.2019 13:28
Решить с паскаля +объяснить почему много ⦁ вычислить сумму последовательности , где n вводится пользователем, и вывести ее на экран. ⦁ вывести на экран количество вводимых пользователем...
sofia042
03.04.2019 13:54
Глубина цвета - это количество: 1 цветов в палитре2 битов, которые используются для кодирования цвета одного пикселя3 базовых цветов4 пикселей изображения...
ирина12374
03.04.2019 14:15
Валгоритме записанном ниже используется целочисленные переменные а и в определите значение переменной а после исполнения данного алгоритма а: =6 b: =а×2 b: =b div 5+a a: =22-(b div...
Sonya2308
03.04.2019 12:20
Найти ошибку в программе с оператором выбора, потому что решение не выводится. : по номеру месяца и года определить количество дней в месяце. program z1; var y,m,k: integer; begin...
Популярные вопросы
До якої температури треба охолодити мідний провід, щоб його опір зменшився на 20%?...
3
Олег ольжич поезії і аналіз Одної поезії Олега ольжича...
2
До ныжчых рослын належать: покрытонасини голонасини водорости...
2
Напишіть 7-8 фактів розвитку нашого краю на початку 18 с....
3
Між числами 5 і 135 в ставте два таких числа, щоб вони разом із по даними утворювали...
3
Кен ұғымына анықтама беріңіз, және мысал келтіріңіз...
3
Розв’яжіть задачу: «Обчисліть відносний вихід амоніаку ( у %), якщо із водню об’ємом...
1
Текст на тему полет на другую планету...
3
Ведмеді дряпають і гризуть кору дерев, роблять заглиблення в землі. Прояв якої поведінки...
2
Пояснити, чому в природі відбуваються сукцесії?...
2
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