Ответ:
Задача простая, если на обыкновенном паскале то вот.
В комментариях ошибка, перевод из рад. в градусы на 14 строке.
{PascalABC}
Program Alexs5655;
var
x1,x2,x,sum: real;
i,n:integer;
begin
var s:='**** -=Alphaeus=- ****'; var k:=0;
for k:=1 to 22 do begin write(s[k]); sleep(47) end;
writeln; write('Введите N = '); readln(n);
x1:=2; x2:=1; sum:=x1+x2; i:=3;
case n of
1: sum:=x1;
2: sum:=x1+x2;
else
while i<=n do
begin
x:=0.8*x2+0.15*x1;
sum:=sum+x;
x1:=x2; x2:=x;
inc(i);
end;
end;
{Вывод}
writeln('Сумма последовательности равна ',sum);
end.
(В блок-схеме, видимо, ошибка: при N=1 сумма должна вычисляться по формуле S:=x1, а не S:=x2)
<span>PROGRAM</span> Probel;
<span>var</span> s<span>:</span><span>string</span>; n<span>,</span>i<span>:</span><span>integer</span>;
<span>begin</span>
<span>writeln</span><span>(</span><span>'введите текст с пробелами '</span><span>)</span>;
<span>readln</span><span>(</span>s<span>)</span>; repeat inc(i);
n<span>:=</span>length<span>(</span>s<span>)</span>;
<span>if</span><span>(</span>s<span>[</span>i<span>]</span><span>=</span><span>' '</span><span>)</span><span>and</span><span>(</span><span>(</span>s<span>[</span>i<span>+</span><span>1</span><span>]</span><span>=</span><span>' '</span><span>)</span><span>)</span><span>then</span>
<span>begin</span>
delete <span>(</span>s<span>,</span>i<span>,</span><span>1</span><span>)</span>;dec<span>(</span>i<span>)</span>;
<span>end</span>;
<span>until</span> i<span>=</span>n;
<span>writeln</span><span>(</span><span>'удалены лишние пробелы '</span><span>)</span>;
writeln(s);
<span>end. </span>
"Винчестер", если о магнитном =)
