Вопрос по информатике:
Привет всем! Помогите, пожалуйста, с задачей)
Ввести N чисел. Подсчитать количество случаев равенства двух чисел, идущих друг за другом.
- 11.02.2018 10:29
- Информатика
- remove_red_eye 11759
- thumb_up 13
Ответы и объяснения 1
//Pascal ABC.NET Версия 2.2 Сборка 790
var i,k,n,a,b:integer;
begin;
readln(n);
i:=1;
repeat
if i mod 20 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
- 12.02.2018 07:34
- thumb_up 46
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.