const n=10;
var a: array[1..n] of integer;
i,s: integer;
begin
s:=0;
write('massiv: ');
for i:=1 to n do begin
a[i]:=random(201)-100;
write(a[i],' ');
s:=s+a[i];
end;
writeln;
write('sum=',s);
end.
14:
CLS
PRINT "Otrezok [a,b]:"
INPUT " a = ", a
INPUT " b = ", b
INPUT "Shag = ", h
FOR x = a TO b STEP h
IF (-1 <= x) AND (x <= 1) THEN
PRINT "y("; x; ") = "; 1 / x + SIN(x * x)
ELSE
PRINT "y("; x; ") = "; x + 1 / (x * x)
END IF
NEXT x
END
15:
CLS
PRINT "Otrezok [a,b]:"
INPUT " a = ", a
INPUT " b = ", b
INPUT "Shag = ", h
FOR x = a TO b STEP h
IF (-1 <= x) AND (x <= 1) THEN
PRINT "y("; x; ") = "; 1 / (x * x) + 1
ELSE
PRINT "y("; x; ") = "; x - 5
END IF
NEXT x
END
1) 01101011
2) а)50 б)214
3.а-2, б-1, в-4, г-3
4. <
>
=
5. a)68,105 б) 0,000152 в) 241300
6. а) 0,6711011*10³ б) 0,73211*10⁻³
Ответ:
Объяснение:
1. Звуковой, графической, текстовой.
3. логическая связка для поиска по любому из слов
Ответ - 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.