1)program qq;
const N=(количество чисел в массиве);
var A:array[1..N] of integer;
i, S:integer;
begin
for i:=1 to N do readln(A[i]);
S=0;
for i:=0 to N do
if (A[i]>9) and (A[i]<100) and (A[i]mod2=0) then S:=S+A[i];
writeln(s);
<span>end.
2) </span>program qq1;
const N=(количество чисел в массиве);
var A:array[1..N] of integer;
i, k:integer;
begin
for i:=1 to N do readln(A[i]);
k:=0;
for i:=0 to N do
if (A[i]mod10=3) and (A[i]<100) and (A[i]>9) then k:=k+1;
writeln(k);
<span>end.</span>
Значёк это файл с расширением ico. Его можно использовать как иконку для приложение, ярлыка , как иконку любого типа файлов в windows. Ярлык это файл с определенным расширением lnk. Предполагается что при открытие ярлыка произойдет открытие файла на который ссылается ярлык.
В условии задачи ошибка. Должно быть: "из числа 167 число 10"
Решение:
167 <= 16 x2 32 x2 64 x2 128 x2 256 x2 512 x2 1024<span><= 102</span><span><span><=</span>10</span>
Const
x = 0.75;
eps = 0.5e-3;
var
s, y1, y2, n, sgn, x2, prevf: real;
begin
{для второго члена последовательности}
x2 := sqr(x);
prevf := 2;
y1 := 1; {первый член последовательности}
y2 := x2 / prevf; {второй член последовательности}
s := y1; {накопленная сумма ряда}
n := 1; {последний член последовательности в сумме}
sgn := 1; {знак очередного члена ряда}
while abs(y1 - y2) >= eps do
begin
s := s + y2; {продолжаем накопление}
n := n + 1;
y1 := y2;
x2 := x2 * sqr(x);
prevf := prevf * (2 * n - 1) * 2 * n;
sgn := -sgn;
y2 := sgn * (2 * n - 1) * x2 / prevf
end;
writeln('Сумма ряда из ',n, ' членов равна ', s)
end.
Тестовое решение:
Сумма ряда из 5 членов равна 1.24291779994965