Var n,i:Integer;
begin
i:=0;
repeat
Readln(n);
if (n mod 2=0) and (n<>0) then
Inc(i);
until n=0;
Writeln;
Writeln(i);
readln;
<span>end.</span>
<u>1. Поиск по поисковому серверу</u>
<u>2. Переход по гипер ссылкам</u>
<span><u>3. Ввод ссылки в адресную строку</u></span>
Program n1;
function thg(var t: real): boolean;
begin
thg:=false;
if (t>=100) and(t<1000) then thg:= true;
end;
var x,y: real;
begin
readln(x,y);
if thg(x) then x:=x-100;
if thg(y) then y:=y-100;
if x<100 then x:=x*10;
if y<100 then y:=y*10;
writeln(x,' ',y);
end.
<span>1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
<span>screen 12
for x=0 to 640 step 5
cls
circle (x,240), 25
circle (x+100,240), 25
line (x+30,240)-(x+70,240)
line (x-50,240)-(x-30,240)
line (x+150,240)-(x+130,240)
line (x+150,240)-(x+150,190)
line (x-50,240)-(x-50,190)
line (x-50,190)-(x-10,190)
line (x+110,190)-(x+150,190)
circle (x+50,190),60 ,, 0 , 3.14
circle (x,240),30 ,, 0 , 3.14
circle (x+100,240),30 ,, 0 , 3.14
next x</span></span>
Var
n,npred,maxs,nseq:integer;
begin
Writeln('Вводите натуральные числа, 0 - конец ввода');
maxs:=0; npred:=-32768; nseq:=1;
repeat
Read(n);
if n<>0 then begin
if n=npred then Inc(nseq)
else begin nseq:=1; npred:=n end;
if maxs<nseq then maxs:=nseq
end
until n=0;
Writeln('Наибольшая длина последовательности равна ',maxs)
end.
<em><u>Тестовое решение:</u></em>
Вводите натуральные числа, 0 - конец ввода
1
5
5
0
Наибольшая длина последовательности равна 2
