Господи грамотей не мима а мимо!
Так вот алгоритм последовательность действий заданный человеком, программой (не важно кем)
{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>a = (x ^ 2 - x * y)/(0.7 * sin (Log(abs(x))))</span>
<span>Две скобки не хватает.</span>
Не откажусь от спасибо и звездочек на ответ xD
var a,b,c:integer;
begin
writeln('Введите три разных числа');
readln(a,b,c);
if (a>b)and(a>c) then writeln(a,' ','найбольшее');
if (b>a)and(b>c) then writeln(b,' ','найбольшее');
if (c>a)and(c>b) then writeln(c,' ','найбольшее') else
writeln('Пожалуйста, введите три разных числа');
readln;
end.