6. решить системы линейных уравнений и вычислить значение квадратичной формы, все это в excel

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>;

Задание №1.

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