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);
Илья
Синергия
Все шикарно, 93 балла из 100. Я более чем доволен. Рекомендую всем обращаться к этому спец...
антон
Санкт-Петербургский государственный университет телекоммуникаций имени профессора М.А. Бонч-Бруевича
Всё прошло быстро. Человек пишет не от руки а печатает в ворде, за что отдельный плюс.
Илья
Синергия
Досрочно, качественно, быстро, без лишних вопросов. В принципе я всем доволен. Профессиона...
Лиманлы
СурГУ
Автору большое спасибо. Все задачи решено быстро и качественно! Рекомендую!