7. Из нижеперечисленных Интернет-серверов какое являетсяпоисковой системой?a) rambler.ru; б) yahoo.com; в) aport.ru; г) все ответы верны.​

б)

Объяснение:

есть поисковая система YaHoo остальное это какое-то сайты

Объяснение:

Б) есть только это поисковая системв

1.1)var n,i:integer;
begin
writeln('Введите число n');
readln(n);
for i:=1 to n do
begin
if (i mod 12=0) then write(i,' ');
end;
end.
1.2)var n,i:integer;
begin
writeln('Введите число n');
readln(n);
i:=1;
while (i<=n) do
begin
if (i mod 12=0) then write(i,' ');
i:=i+1;
end;
end.
1.3)var n,i:integer;
begin
writeln('Введите число n');
readln(n);
i:=1;
repeat
if (i mod 12=0)then write(i,' ');
i:=i+1;
until (i>n);
end.
2.1)var n,i,s:integer;
begin
s:=0;
writeln('Введите число n');
readln(n);
for i:=1 to n do
beginif (i mod 6=0)then s:=s+i;
end;
writeln('Сумма равняется ',s);
end.
2.2)var n,i,s:integer;
begin
s:=0;
writeln('Введите число n');
readln(n);
i:=1;
while (i<=n) do
begin
if (i mod 6=0) then s:=s+i;
i:=i+1;
end;
writeln('Сумма равняется ',s);
end.
2.3)var n,i,s:integer;
begin
s:=0;
writeln('Введите число n');
readln(n);
i:=1;
repeat
if (i mod 6=0) then s:=s+i;
i:=i+1;
until (i>n);
writeln('Сумма равняется ',s);
end.

Program z1;
var a:array[1..100] of integer;
        i,n,ma,mau:integer;
begin
        assign(input,'in.txt');
        reset(input);
        readln(n);
        for i:=1 to n do begin
                read(a[i]);
        end;
        close(input);
        ma:=a[1];mau:=1;
        for i:=1 to n do begin
                if a[i]>ma then begin
                        ma:=a[i];mau:=i
                end;
        end;
        a[mau+1]:=2*ma;
        if mau=n then n:=n+1;
        assign(output,'out.txt');
        rewrite(output);
        for i:=1 to n do begin
                write(a[i],' ')
        end;
        close(output)
end.