1. While:
var a,i,s:integer;
begin
s:=0;
i:=0;
while i<10 do
begin
i:=i+1;
write('a = ');
readln(a);
s:=s+a;
end;
writeln('Среднее арифметическое = ',s/10);
end.
2. Repeat
var a,i,s:integer;
begin
s:=0;
i:=0;
repeat
i:=i+1;
write('a = ');
readln(a);
s:=s+a;
until i=10;
writeln('Среднее арифметическое = ',s/10);
end.
3. For:
var a,i,s:integer;
begin
s:=0;
for i:=1 to 10 do
begin
write('a = ');
readln(a);
s:=s+a;
end;
writeln('Среднее арифметическое = ',s/10);
end.
Пример:
a = 4
a = 6
a = 9
a = 7
a = 1
a = 3
a = 6
a = 5
a = 4
a = 8
Среднее арифметическое = 5.3
<span>При работе с Панелью форматирования выравнивание осуществляется с помощью расположенных на ней кнопок. Одинарный, по<span>луторный и двойной межстрочные интервалы также можно </span><span>установить с помощью кнопок, предварительно настроив Панельформатирования. Другие межстрочные интервалы можно установить только с помощью диалогового окна. Отступы абзаца и первая <span>строка устанавливаются с помощью Горизонтальной координатной линейки (рис. 14); при этом верхняя метка указывает начало </span>первой (красной) строки, а нижние — ширину абзаца.</span></span><span><span>Чтобы форматирование абзаца происходило в процессе его ввода, </span>следует задать необходимые параметры, а уже затем вводить текст.</span><span>Для форматирования нескольких расположенных друг за дру<span>гом абзацев их необходимо предварительно выделить. При форма<span>тировании одного абзаца достаточно установить курсор в любом </span><span>месте этого абзаца.</span></span></span>
Const
pi=3.14;
varr:double;
begin
read(r);
writeln('Dlina=',2*r*pi:5);
write('S=',pi*(r*r):5);
<span>end.</span>
