Десять итераций увеличения s на 2
s = 20
Program asd;
Uses crt;
var a:array [1..100] of integer;
i:integer;
s:real;
begin
readln (n);
for i:=1 to n do
begin
readln (a[i]);
s:=s+a[i];
end;
s:=s/n;
writeln (s);
end.
Птицы: 12, 23, 42
Звери: 13, 33, 32
Домашние: 41
Бабочка (21) ни к какой группе не относится, это насекомое.
Может задачу недопонял. Но вот что вышло:
uses crt;
var n,i,s:integer;
begin
clrscr;
readln(n);
for i:=1 to n do
begin
s:=s+i;
end;
writeln(s);
readkey;
<span>end.</span>
Привет!
Это делается так:
------------------------------
Щелкнуть правой кнопкой мыши область диаграммы или область построения, нажать кнопку "Изменить тип диаграммы" ⇒ В диалоговом окне "Изменение типа диаграммы" выбрать тип.
ИЛИ
Чтобы изменить тип диаграммы, щелкнуть область диаграммы или область построения. Появятся инструменты для работы с диаграммами. ⇒ Чтобы изменить тип диаграммы для ряда данных, щелкнуть его. ⇒ Откроется панель "Работа с диаграммами" с дополнительными вкладками "Конструктор", "Макет" и "Формат". ⇒ На вкладке "Конструктор" в группе "Тип" нажать кнопку "Изменить тип диаграммы". ⇒ В диалоговом окне "Изменение типа диаграммы" выбрать тип.
------------------------------
Вот так. Пока!