Первое
var
a:array[1..100] of integer;
i,j:integer;
procedure swap(var x,y: integer);
var t: integer;
begin
t := x;
x := y;
y := t
end;
begin
for i:=1 to 100 do a[i]:=random(100);
for j:=1 to 99 do
for i:=1 to 100-j do if a[i] > a[i+1] then swap(a[i],a[i+1]);
for i:=2 to 99 do if (a[i]=a[i+1]) or (a[i]=a[i-1]) then writeln('a[',i,']=',a[i]);
end.
Второе
var
a:array[1..100] of integer;
i,j:integer;
procedure swap(var x,y: integer);
var t: integer;
begin
t := x;
x := y;
y := t
end;
begin
for i:=1 to 100 do a[i]:=random(100);
for j:=1 to 99 do
for i:=1 to 100-j do if a[i] > a[i+1] then swap(a[i],a[i+1]);
if a[1]<>a[2] then writeln('a[1]=',a[1]);
for i:=2 to 99 do if (a[i]<>a[i+1]) and (a[i]<>a[i-1]) then writeln('a[',i,']=',a[i]);
if a[100]<>a[99] then writeln('a[100]=',a[100]);
end.
1) var
i,n:longint;
a:array [1..1000] of longint;
begin
readln(n);
for i:=1 to n do
begin
a[i]:=sqr(2*i+1);
write(a[i],' ');
end;
end.
2) Условие мне не понятно
3)Ща будет
Информатика это наука об информации и способах работы с ней
var
s, s2 : String;
Check : Boolean;
i : Integer;
begin
Write('Введите первое слово: ');
ReadLn(s);
Write('Введите второе слово: ');
ReadLn(s2);
if Length(s) <> Length(s2) then
begin
Writeln('No');
exit;
end;
Check := True;
for i := 1 to Length(s) do
if pos(s[i], s2) <> 0 then
Delete(s, pos(s[i], s2), 1)
else Check := False;
If Check then
Writeln('Yes')
else
Writeln('No');
Readln;
end.
