I=1 s=0+1*1=1
i=2 s=1+2*2=5
i=3 s=5+3*3=14
i=4 s=14+4*4=30
i=5 s=30+5*5=55
Ответ: s=55
//Pascal ABC.NET v3.0 сборка 1111
var
ar:array of integer;
n:integer;
begin
n:=0;
setlength(ar,n+1);
readln(ar[n]);
while ar[n]<>0 do
begin
inc(n);
setlength(ar,n+1);
readln(ar[n]);
end;
sort(ar);
ar.Print(' ');
<span>end.</span>
Var
x,max:real;
n,i:integer;
begin
write('Введите число n: ');
readln(n);
for i:=1 to n do
begin
write('Введите число ',i,': ');
readln(x);
if x<0 then
begin
if max=0 then max:=x; // если это первое отр.число
if x>max then max:=x
end
end;
writeln('Наибольшее среди отрицательных: ',max)
<span>end.</span>
===== PascalABC.NET =====
function sogl(c: char) :=
not (c.ToUpper in ('АЕЁИОУЫЭЮЯ'));
// проверка функции
begin
var s := 'ТестируемРусскийАлфавит';
foreach var c in s do
Print(sogl(c));
end.
На самом деле все это будет правильно работать лишь если функции давать исключительно русские буквы.
Ответ:
1 буква Л
2 буква Г
исходя из всех вариантов наиболее подходящий МГЛА
так как остальные варианты не имеют таких букв,которые имеются в слове МГЛА