Const N = 10;
var A: array[1..10] of integer;
i, len: integer;
s: string;
begin
write('Введите слово: ');
readln(s);
len := length(s);
for i := 1 to len do begin
A[ i ] := ord(s[i]);
writeln('Код символа ', s[ i ], ': ', A[ i ]);
end;
<span>end.</span>
// PascalABC.NET 3.3.5
begin
var n:=ReadInteger('n=');
var a:=ReadArrInteger('Вводите массив:',n);
Writeln(a.Where(x->(x mod 3<>0)).Average);
end.
Пример:
n= 5
Вводите массив: 20 15 11 45 32
21
В восьмеричной системе счисления
Вроде так, просто нет значений для проверки:
var
x:real;
begin
writeln('Write x:');
readln(x);
writeln(sqr(sin(x)/cos(x))+2*(sin(x)/cos(x)):0:2);
readln
end.