k = int(input('Начало диапазона ')) n = int(input('Конец диапазона ')) a = [0] * n # создание массива с n количеством элементов for i in range(n): # заполнение массива a[i] = i a[1] = 0
m = 2 # замена на 0 начинается с 3-го элемента
while m < n: # перебор всех элементов до заданного числа if a[m] != 0: j = m * 2 while j < n: a[j] = 0 j = j + m m += 1
# вывод простых чисел на экран b = [] for i in a: if a[i] != 0 and i >= k: b.append(a[i])
del a print(b)
Задание №2
count = 0 for i in range(13): for j in range(11): for k in range(9): if 185 == i*15+j*17+k*21: count += 1 print(i,j,k) print('Всего
Задание №3
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
1)
program FunctionIFfull;
uses crt;
var
x, y : real;
begin
clrscr;
write('x = ');
readln(x);
if x>=1 then y:= sqrt(3*x+4)
else
if x<=-1 then y:= sqr(x)+4*x
else y:=4*sqr(x)-2*x+3;
writeln('y = ', y:8:2);
readln;
end.
2)
program FunctionIFshort;
uses crt;
var
x, y : real;
begin
clrscr;
write('x = ');
readln(x);
if x>=1 then y:= sqrt(3*x+4);
if x<=-1 then y:= sqr(x)+4*x;
if (x>-1) and (x<1) then y:= 4*sqr(x)-2*x+3;
writeln('y = ', y:8:2);
readln;
end.
Объяснение:
1. Повна команда розгалуження має вигляд
if < логічний вираз > then <команда 1> else < команда 2 >;
2. Коротка команда розгалуження має вигляд
if <логічний вираз > then <команда 1>;