Если i больше 0 делаем
1) i:= i(=5) - 1 = 5-1= 4
2) s:= 0+4(получилось в 1 действии)= 4
i больше 0, повторяем процедуру
1) i:= i(=4 из 1-ого решения) - 1 = 4-1= 3
2) s:= 4( из 1-ого решения) +3= 7
И еще раз
1) i:= i(=3 из 2-ого решения) - 1 = 3-1= 2
2) s:= 7( из 2-ого решения) +2= 7 + 2 = 9
Снова
1) i:= i(=2 из 3-ого решения) - 1 = 2-1= 1
2) s:= 9( из 3-ого решения) +1= 9+1 = 10
И еще
1) i:= i(=1 из 4-ого решения) - 1 = 1-1= 0
2) s:= 10( из 4-ого решения) +0= 10+0 = 10
Так как i= 0, а не больше 0, то алгоритм закончен
S= 10
# # Код на ruby 2.2.3p173
k = 0
begin
k = k + 1
k = k * 2
end until k > 10
p k
Ответ 14
<span>const
r=6350;
var
h,l: real;
begin
write('Введите значение высоты h (км): ');
readln(h);
writeln('До линии горизонта ',sqrt(sqr(r+h)-sqr(r)):0:3,' км');
readln;
end<span>.</span></span>
Под буквой Б, я это вчера сделал
Я вот тоже Вышел порешать =).
var p: array [1..1000] of record
slovo:string;
k:integer;
end;
N,i,j,max:integer;
c:char;
a:array [97..122] of integer;
BEGIN
max:=0;
readln(N);
for i:=1 to N do
begin
p[i].slovo:='';
repeat
read(c);
p[i].slovo:=p[i].slovo+c
until c=' ';
readln(p[i].k);
for j:=1 to length(p[i].slovo) do
if (ord(p[i].slovo[j])>=97) and (ord(p[i].slovo[j])<=122) then
a[ord(p[i].slovo[j])]:=a[ord(p[i].slovo[j])]+p[i].k;
end;
for j:=97 to 122 do
if a[j]>max then
max:=a[j];
write(max);
end.