На картинке: стакан с напитком и эскимо на палочке с глазурью
Uses crt;
var
k: integer;
x, s, a: real;
begin
ClrScr;
Write('x=');
Readln(x);
a := x;
s := a;
k := 3;
while k < 13 do
begin
a := a * (-1) * x * x / k / (k - 1);
s := s + a;
k := k + 2;
end;
writeln('s=', s:5:6);
Readkey;
end.
#include <iostream>
using namespace std;
int main() {
int i,n,k;
cout<<"Vvedite chislo elementov massiva: ";
cin>>n;
int a[n];
for (i=0; i<n; i++){
cout<<"Vvedite "<<i+1<<"-e chislo massiva: ";
cin>>a[i];
}
cout<<"Vvedite znachenie k: ";
cin>>k;
int m=0;
for(i=0;i<n;i++) if (abs(a[i])>2*k) m++;
cout<<"Naydeno elementov: "<<m<<"\n";
system("pause");
return 0;
}
<em><u>Тестовое решение:</u></em>
Vvedite chislo elementov massiva: 6
Vvedite 1-e chislo massiva: -7
Vvedite 2-e chislo massiva: 2
Vvedite 3-e chislo massiva: 0
Vvedite 4-e chislo massiva: -5
Vvedite 5-e chislo massiva: 8
Vvedite 6-e chislo massiva: 3
Vvedite znachenie k: 2
Naydeno elementov: 3
Для продолжения нажмите любую клавишу . . .
Задание №1.
<span>k = int(input('Начало диапазона '))
n = int(input('Конец диапазона '))
a = [0] * n <span># создание массива с n количеством элементов
</span>for i in range(n): <span># заполнение массива
</span> a[i] = i
a[1] = <span>0
</span>
m = 2 <span># замена на 0 начинается с 3-го элемента
</span>while m < n: <span># перебор всех элементов до заданного числа
</span> if a[m] != 0:
j = m * 2
while j < n:
a[j] = 0
j = j + m
m += <span>1
</span>
<span># вывод простых чисел на экран
</span>b = []
for i in a:
if a[i] != 0 and i >= k:
b.append(a[i])
del a
print(b)
Задание №2
</span>
<span>count = <span>0
</span>for i in range(13):
for j in range(11):
for k in range(9):
if 185 == i*15+j*17+k*21:
count += <span>1
</span> print(i,j,k)
print('Всего способов - ', count)
Задание №3
</span>
<span>x = int(input())
print('\n'.join(
str(n) for n in range(x+1)
if all(x != 0 and n % x == 0 for x in map(int, str(n)))))
</span>
если ответ подразумевается один то однозначно 2.
быстрая печать.