В прикрепленном изображении указаны формулы, необходимые для решения этой задачи. Код программы приведен ниже.
Удачи!
var a1, a5, an, d, sum, n : integer;
begin<span>
readln(a1, a5, n);<em>{получаем на вход первый и пятый члены прогрессии и число n}</em></span><span>
d := (a5 - a1) div 4; <em>{Находим разность прогрессии}</em></span><span>
an := a1 + (n - 1) * d;<em>{Находим член прогрессии с номером n}</em></span><span>
sum := ((a1 + an) * n) div 2; <em>{Находим сумму первых n членов прогрессии}</em></span><span>
writeln('n-ый член прогрессии: ', an);</span><span>
writeln('Сумма первых n членов прогрессии: ', sum);
</span>end.<span>
</span>
1) свернуть все окна и нажать клавишу F1
2) в строке поиска ввести аппаратное<span> </span>сжатие
3)в "Рекомендуемых разделах" нажать на "термины" и там мы увидими искомое понятие
4) аналогично проделываем для поиска понятия атрибут
\
<u>1. Вот так это нужно решать по-современному</u>
// PascalABC.NET 3.1, сборка 1172 от 19.02.2016
begin
Writeln('k=',ArrRandom(15,1,20).Println.Count(x->x>10))
end.
<u><em>Тестовое решение</em></u>
4 16 14 9 11 18 17 14 14 15 1 1 9 10 15
k=9
<u>2. А вот так учат решать в школе...</u>
// PascalABC.NET 3.1, сборка 1172 от 19.02.2016
var
a:array[1..15] of integer;
i,k:integer;
begin
Randomize;
k:=0;
for i:=1 to 15 do begin
a[i]:=Random(20)+1;
Write(a[i],' ');
if a[i]>10 then k:=k+1
end;
Writeln;
Writeln('k=',k)
end.
<u><em>Тестовое решение:</em></u>
18 15 7 6 3 3 10 6 6 15 2 16 16 2 12
k=6
Program ghg;
var a,b,s:integer;
begin
writeln('vvedite a');
readln(a);
writeln('vvedite b');
readln(b);
if (a<=2*109) and (b<=2*109) then
s:=a+b;
writeln('s=',s);
end.
Например когда закрываешь документ будет 3 выбора: Сохранить и закрыть. Закрыть. Отмена.
2. Специальный значок в левом верхнем углу.
3. Клавишами ctrl+s
4. Нажать на ФАЙЛ, и там есть кнопки Сохранить, Сохранить как.