4. http:// - протокол
5. ftp://www.net.ru/http.txt (ВАЖГЕБД)
6. 192.153.25.62 (ГБВА)
далее idk
Var n,k,m: integer;
<span>begin
</span><span> write('n = '); readln(n);
</span><span> k:=n; m:=1;
</span><span> while k>0 do
</span><span> begin
</span><span> k:=k div 10;
</span><span> m:=m*10;
</span><span> end;
</span><span> k:=2*m*10+n*10+2;
</span><span> writeln(k);
</span><span>end.
</span>n = 78954
<span>2789542
</span>
<span>
</span>
Var i,j,x,n
x - введенное число, i - число с которым нужно сравнить, n - счётчик чисел
n:=0;
ReadLn (i);
for j:=1 to 5 do begin
ReadLn (x);
if x=i then n:=n+1;
end;
writeLn("N= "n)