Var A,S:real;
n:integer;
Begin
Write('n = ');
Read(n);
a:=10;
For n:= 1 to n do
Begin
a:=a*1.1;
S:=S+a
End;
WriteLn(S)
End.
B=4
a=3
b=<span>7-2*a-b=7-2*3-4=7-6-4=-3
a=b/3-a=-3/3-3=-1-3=-4
ответ:a=-4
b=-3</span>
Полное решение, все задания
Алгоритм посадки дерева
Начало
Выкопать в земле ямку
Опустить в ямку саженец
Засыпать ямку с саженцем землёй
Полить саженец водой
Конец