Ответ - IAEGE решать такое не умею , но написал программу , которая это делает , если пригодится и ты знаешь паскаль - держи
var a:string;
b:char;
n:integer;
begin
a:='A'; for n:=66 to 73 do begin
a:=Chr(n)+a+a;
end;
writeln(a);
write(a[1],a[510],a[5],a[258],a[68]);
end.
Локальный провод!
подсоединяшь к главному компу, а потом к другим.
program zadacha;
Var x,a,b :real;
begin
readln (a,b);
if a<>0 then x:=-b/a;
Writeln ('x= ',x);
end.
// PascalABC.Net
var arr: array [1..15] of integer;
count: integer;
begin
for var i:=1 to 15 do
arr[i]:=random(1, 300);
writeln('Исходный массив: ');
for var i:=1 to 15 do
write(arr[i], ' ');
writeln();
count:=0;
for var i:=1 to 15 do
if (arr[i] > 9) and (arr[i] < 100) then
count += 1;
writeln('Количество двузначных чисел: ', count);
end.