2) s:='drive';
n:=Length(S);
sum:=0;
for i:=1 to n do Sum:=Sum+ord(s[i])-96;
writeln(s);
3) For i:=1 To 5 Do
For j:=1 To 5 Do A[i,j]:= i+j;
Sum:=0;
For i:=1 To 5 Do Sum:=Sum+A[i,6-i];
Writeln(Sum);
4)For i:=1 To 10 Do
For j:=1 To 10 Do A[i,j]:= i+j;
Sum:=0; x:=1;
For i:=1 To 10 Do Sum:=Sum+A[i, x];
Writeln(Sum);
5)A[1]:=0; x:=9; y:=1;
For n:=2 To 20 Do
a[n]:= x*n-a[n-1]-y;
Sum:=0;
For n:=1 to 10 do Sum:=Sum+A[2*n-1];
Writeln(Sum);
7)A[1]:=0; x:=6; y:=2;
For n:=2 To 20 Do
a[n]:= x*n-a[n-1]-y;
Sum:=0; n:=3;
While n<=20 do
begin
Sum:=Sum+A[n];
n:=n+3;
end;
Writeln(Sum);
8)s:='testing';
n:=Length(S);
sum:=0;
for i:=1 to n do Sum:=Sum+ord(s[i])-96;
writeln(s);
Жданов Дмитрий
ПТУ
Спасибо Евгений, Вы очень помогли мне на самостоятельной, получил пятерку за работу, очень...
Ольга
Тюменский индустриальный университет
Спасибо огромное за работу исполнитель очень тактичен идет на встречу. Рекомендую.
Артём
НИУ МЭИ
Отличная работа ,с такими людьми приятно иметь дело!все быстро и качественно
Александр
УПИ-УрФу
Помимо того, что все профессионально, еще и ощущение, что человек общается с тобой как с б...