Var
x, n, max: integer;

begin
n := 0;
max := 0;
while true do
begin
read(x);
if(x mod 3 = 0)and(x<>0) then n := n + 1
else begin if(n > max) then max := n; n := 0; end;
if(x = 0) then break;
end;
write(max);
end.

0 0

4 года назад

Помогите с информатикой пожалуйста

Нииколай

<h2>Пункт 1</h2>

(e) Слог
(b) Буква
(a) Слово
(f) Предложение
(c) Абзац
(d) Документ

<h2>Пункт 2</h2>

(d) Знак операции
(b) Оператор
(c) Процедура
(a) Программа

<h2>Пункт 3</h2>

(очень спорно насчёт (a) и (d))

(a) Микросхема
(d) Транзистор
(c) Материнская плата
(b) Системный блок

0 0

4 года назад

У подножья высокого холма,на берегу тихой речки был небольшой аул.жили в нем два брата охотника.Отправляет старший брат младшего

АлександраЕгорова [2]

1. Наполнить меньший бурдюк водой и перелить её в больший.
Результат: меньший - 0, больший - 5
2. Наполнить меньший бурдюк водой и перелить её часть в больший, наполнив его.
Результат: меньший - 2, больший - 8.
3. Вылить всю воду из большего бурдюка а затем перелить из меньшего в больший.
Результат: меньший - 0, больший - 2.
4. Наполнить меньший бурдюк водой и перелить её в больший.
Результат: меньший - 0, больший - 7.

0 0

4 года назад