<span>информация представленная в форме пригодной для обработки компьютером 6 букв
это будет данные.
</span>
<span>волк полк пола поза коза,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,</span>
Var
n: integer;
procedure WriteNSymbols(n: integer; c: char);
var
i: integer;
begin
for i := 1 to n do
write(c);
end;
begin
readln(n);
WriteNSymbols(n, '-');
end.
Немного непонятно, как 8 может указывать на то, что дальше будет 6 чисел.
python 3:
with open("input.txt") as f:
numbers = list(map(int, f.read().split()))[1:]
print(sum(numbers)/len(numbers))
PascalABC.NET 3.2:
begin
var f := openread('input.txt');
var n := readinteger(f);
var sum := 0;
for var i := 1 to n do
sum += readinteger(f);
write(sum / n);
end.
var s: string;
begin
readln(s);
writeln('кол-во символов: ',length(s));
if s[1]=s[length(s)] then
writeln('первая и последняя буквы слова совпадают')
else writeln('первая и последняя буквы слова не совпадают');
writeln('первый, третий и последний символы: ',s[1],' ',s[3],' ',s[length(s)]);
if length(s) mod 2=0 then write('кол-во символов четное')
else write('кол-во символов нечетное');
end.