Задача: Дана последовательность натуральных чисел, завершающаяся числом 0. Определите, какое наибольшее число подряд идущих элементов этой последовательности равны друг другу (подсчитать одинаковые числа Вводимые числа: 1, 7, 7, 9, 1, 0. В ответе должно быть число: 2 (писать на паскале)
Ответы
Это выражение будет истинно (т.е. равно единице), если И первая скобка, И вторая скобка будут истинны (т.е. равны единице).
Рассмотрим первую скобку (A v В v C):
это выражение будет истинно, если хотя бы A, ИЛИ B, ИЛИ C будет истинно. Если хоть одно значение истинно, то все выражение истинно. Сюда подойдут значения 001, 010, 011, 100, 101, 110, 111 — 7 шт.
Рассмотрим вторую скобку (B & C & D):
это выражение будет истинно, если все три значения будут истинны. Сюда подойдет только одно — 111 (т.е. каждое каждая переменная истинна).
Для первой скобки у нас получилось 7 решений, а для второй — 1 решение. Всего решений целого уравнения — 7 * 1 = 7 решений.
ответ: 7
Примечание: т.к. в html всего 6 уровней заголовков, а цветов в радуге 7, то я добавил в качестве еще одного уровня тег p.
<html>
<head>
<style>
h6 { color: red; }
h5 { color: orange; }
h4 { color: yellow; }
h3 { color: green; }
h2 { color: deepskyblue; }
h1 { color: blue; }
p { font-size: 2.5em; font-weight: bold; color: purple; }
</style>
</head>
<body>
<h6>каждый</h6>
<h5>охотник</h5>
<h4>желает</h4>
<h3>знать</h3>
<h2>где</h2>
<h1>сидит</h1>
<p>фазан</p>
</body>
</html>
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Популярные вопросы в разделе
Информация. основные подходы к определению понятия"информация".восприятие информации человеком
Дано : равномерный массив а[n] найти количество отрицательных элементов массива
Сам решил, но не уверен в правильности
РЕШИТЕ !1!1! ОТ МОГУ ЕЩЕ НАКИНУТЬ ЗАДАНИЕ 4.18 ✓3
Информатика, все просто нужна не успеваю сделать С объяснением
program skoka_odinakovih;
var x,y,k,k1:integer;
begin
writeln('Введите числа. Конец ввода 0 》');
read(y);
k:=1;
k1:=1;
repeat
read(x);
if x=y then
inc(k)
else
begin
y:=x;
if(k>k1) then
k1:=k;
k:=1
end
until x=0;
write(k1)
end.