Код к задаче: «Вывести число в обратном порядке - Pascal»
var x1,x2,h,i,s:integer;
begin
write('x1=');readln(x1);
write('h=');readln(h);
x2:=2*x1+h;
i:=2;
s:=x1+x2;
while i<=8 do
i:=i+1;
x1:=x2;
s:=s+x2;
if i=5 then writeln('Пятый элемент=',x2);
if i=7 then writeln('Сумма=',s);
if i=8 then write('Восьмой элемент=',x2);
end;
readln
end.
Код к задаче: «Вывести число в обратном порядке - Pascal»
var x1,x2,h,i,s:integer;
begin
write('x1=');readln(x1);
write('h=');readln(h);
x2:=2*x1+h;
i:=2;
s:=x1+x2;
while i<=8 do
begin
i:=i+1;
x1:=x2;
x2:=2*x1+h;
s:=s+x2;
if i=5 then writeln('Пятый элемент=',x2);
if i=7 then writeln('Сумма=',s);
if i=8 then write('Восьмой элемент=',x2);
end;
readln
end.