A(5,10)
B(13,12)
C(11,5)
D(11,8)
E(4,2)
F(2,4)
N(9,значения нет)
Ответ:стрелка
Program Pr1; Uses Crt;
var a,b,c: integer; y: real;
begin clrscr;
Writeln('введите a,b,c');
Readln(a,b,c);
y=b+sqrt(b*b+4*a*c)/(2*a)-a*a*a*c+b*b-2;
Writeln('Y=', y:5:2);
Readln;
End.
Создаешь массив со своим предложением,
если правильно понял задачу то можно просто вывести последние слово:
for от начала слово и до его конца и выведутся символы последнего слово
Принцып я обьяснил, осталось тебе только написать код.
На картинке: стакан с напитком и эскимо на палочке с глазурью
1)program task1;
2)uses crt;
3)const n=10;
4)var a:array[1..n] of integer;
5) i:integer;
6)sr:real;
7)begin
8)clrscr;
9)randomize;
10)for i:=1 to n do
11)begin
12)a[i]:=random(11)*1;
13)write(a[i],' ');
14)end;
15)for i:=1 to n d
16)begin
17)sr:=(a[1]*a[2]*a[3]*a[4]*a[5]*a[6]*a[7]*a[8]*a[9]*a[10])/n;
18)end;
19)writeln;
20)writeln('srednee arefmiticheskoe=',sr:6:2);
21)readln;
22)end