Контекстное, вроде больше нет
program asdassg;
uses crt;
var a:array [1..10]of integer;i,lmax,l:integer;
begin
writeln('vvedite elementu vectora') ;
for i:=1 to 10 do read (a[i]) ;
for i:=1 to 10 do write (a[i],' ' );
writeln;
lmax:=0; l:=0;
for i:=2 to 10 do begin
if (a[i]=a[i-1]) and (a[i]=0) then l:=l+1 else l:=1;
if l>lmax then lmax:=l;
end;
writeln('samaya dlinnaya posledovatelnost 0 =',lmax);
end.
9) B4(16) = 10110100(2), 46(8) = 100110(2)
10110100(2) + 100110(2) = 11011010(2)
10) не видно, край листа обрезан.
12121
Решение:
7*2=14
14-2=12
12*2=24
24-2-22
22*2=44
1)var a,b,c:integer;
begin
writeln('Введите возраст 1 друга');
readln(a);
writeln('Введите возраст 2 друга');
readln(b);
writeln('Введите возраст 3 друга');
readln(c);
if (a>b) and (a>c) then writeln('Старшим является 1 друг')
else if (b>a) and (b>c) then writeln('Старшим является 2 друг')
else writeln('Старшим является 3 друг');
<span>end.
2)</span>var a,b:integer;
begin
writeln('Введите возраст 1 друга');
readln(a);
writeln('Введите возраст 2 друга');
readln(b);
if a>b then writeln('Старшим является 1 друг')
else writeln('Старшим является 2 друг');
<span>end.</span>