Напишите программу вычислення значения выражения y = x=int(in input("Введите число х')) # ввод данных y=x**2/2+2*x+x/5 print (результат=', y) ## формула # вывод ответа

Program n1;
Uses CRT;
Const n=15;
Var A: array[1..n] of integer; B: array[1..n] of integer;
i,k,max: integer;
begin
randomize;
clrscr;
Writeln('ishodny massiv');
For i:=1 to n do
begin
a[i]:=random(100);
a[i]:=a[i]-50;
write(a[i]:4);
end;
writeln;
writeln('polychenny massiv');
max:=0;
For i:=1 to n do
begin
b[i]:=-a[i];
write(b[i]:4);
If a[i]=b[i] then k:=k+1;
If (b[i]>0)and(b[i]>max) then max:=b[i];
If (b[i]<0)and(-b[i]>max) then max:=-b[i];
end;
writeln;
Writeln('Kolychestvo neizmenyvshihsa elementov=',k,', samyi bolshoy po modyly element raven =',max);
writeln
end.

Задание полностью:
Откройте своё любимое литературное произведение. Подсчитайте. сколько букв расположено в одной полной строке (обычно 40-50). Отсчитайте такое количество строк, чтобы в них содержалось примерно 1000 букв (20-25 строк). В выделенном фрагменте как можно более точно пересчитайте сначала все буквы "а", затем "б", "в" и так далее по алфавиту. Полученные результаты занесите во второй столбец таблицы. Знаки препинания, цифры и пробелы впишите в строку "Другие".

У меня всё выполнено для первых 1000 символов предисловия сказки Карло Гоцци "Король-Олень" (текст во вложении). Если считать по строчкам, то в строчке, напечатанной обычным шрифтом, порядка 75 символов, так что надо брать первые 13-14 строк.

Получившаяся таблица на картинке. В общем, те буквы, которые в среднем встречаются часто (например, О, Е/Ё, А), в тексте встречаются тоже часто.