Высказывание соответствует для имени Елена (первая буква е-гласная, четвертая буква н-согласная)
1)
var n,k: integer;
begin
readln(n);
if (n>0) and (n<10) then k:=1
else if (n>9) and (n<100) then k:=2
else k:=3;
write(k);
end.
2)
var a,b,c: integer;
D,x1,x2: real;
begin
readln(a,b,c);
D:=b*b-4*a*c;
if(D>0) then begin
x1:=((-1)*b+sqrt(D))/(2*a);
x2:=((-1)*b-sqrt(D))/(2*a);
write(x1,' ',x2);
end else if (D=0) then begin
x1:=(-1)*b/(2*a);
write(x1);
end else write('Нет решений');
end.
3)
var x,y: integer;
begin
readln(x,y);
if(x=0) or (y=0) then write('точка лежит на координатной оси')
else begin
if(x>0) then begin
if(y>0) then write('I')
else write('IV');
end else
if(y>0) then write('II')
else write('III');
end;
end.
MCMXCVII = 1997;
Ответ: 1997;
<u>PascalABC.NET 3.3.5, сборка 1669 от 21.05.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
var a:=ArrRandom(15,-50,50); a.Println;
Writeln('Отрицательных: ',a.Where(t->t<0).Count);
Writeln('Минимум: ',a.Min);
Writeln('Среднее арифметическое отрицательных: ',
a.Where(t->t<0).Average)
end.
<u>Пример</u>
-16 47 -41 -26 1 3 27 -28 -26 4 -19 -13 -16 38 20
Отрицательных: 8
Минимум: -41
Среднее арифметическое отрицательных: -23.125