К=2^i
K=13
13=2^i
i=4, т.к. 3 недостаточно
Var
i:integer;
a,b:real;
Begin
for i:= 1 to 5 do Begin
a:=random(50);
write(a,' ');
b:=b+a;
End;
Writeln;
write('Их средн арифм = ',b/5);
End.
<span>Var
A,B:real;
Begin
WriteLn('(a+b)^2 = a^2 +2ab +b^2');
WriteLn('Введи значения a и b через пробел');
ReadLn(A,B);
WriteLn(sqr(A),' +',2*a*b,' +',sqr(b));
</span>
1)
отступы сверху, снизу, справа, слева
междустрочный интервал
выравнивание
отступ первой строки
2) отступ первой строки - значит подвигается только первая строка
отступ абзаца - двигается весь абзац целиком, со всеми строками