Задание №1
Составить программу решения данной задачи в соответствии с номером своего варианта. Использовать данную функцию или процедуру в качестве фрагмента программы, организовать в программе обращение к ней, указав соответствующие фактические параметры при каждом вызове подпрограммы.
Вариант 1.
Составить программу вычисления наибольшего общего делителя трёх введённых чисел х, у, z, используя процедуру вычисления наибольшего общего делителя этих чисел.
Procedure NOD(a,b:integer; var k:integer);
Begin
While a<>b do
If a>b then a:=a-b else b:=b-a;
k:=a;
End;

Вариант 2.
Составить программу, которая определяет, являются ли три введённые числа х, у, z взаимно-простыми. Взаимно-простыми называются числа, наибольший общий делитель которых равен 1. Использовать функцию вычисления наибольшего общего делителя этих чисел.
Function NOD(a,b:integer):integer;
Begin
While a<>b do
If a>b then a:=a-b else b:=b-a;
NOD:=a;
End;

Задание №2

1. Составить программу вычисления значения выражения:
, используя функцию для вычисления значения .

2. Напишите программу вычисления выражения:
, где .
Вычисление значений х оформить в виде подпрограммы-функции.

Задание №3

1.Составить программу, которая вычисляет периметр треугольника, если заданы координаты вершин . Вычисление расстояния между двумя точками оформить в виде функции по известной формуле: .

2. Составить программу, которая находит наибольшую сторону треугольника, если заданы координаты вершин . Вычисление расстояния между двумя точками оформить в виде функции по известной формуле: .

k = 0

for i in range(1,11):

   if i == 1:

       ds = int(input('Сколько будет 2+2? '))

       if ds == 4:

           print('Молодец')

           k+=1

       else:

           print('Не верно')

   if i == 2:

       dk = int(input('Сколько сторон у треугольника? '))

       if dk == 4:

           print('Молодец')

           k+=1

       else:

           print('Не верно')

   if i == 3:

       dk = int(input('Сколько сторон у квадрата? '))

       if dk == 4:

           print('Молодец')

           k+=1

       else:

           print('Не верно')

   if i == 4:

       dk = int(input('Стороны прямоугольника 5 и 4, чему равен периметр?  '))

       if dk == 20:

           print('Молодец')

           k+=1

       else:

           print('Не верно')

   if i == 5:

       dk = int(input('6 * 6 это? '))

       if dk == 36:

           print('Молодец')

           k+=1

       else:

           print('Не верно')

   if i == 6:

       dk = int(input('Корень из 144? '))

       if dk == 12:

           print('Молодец')

           k+=1

       else:

           print('Не верно')

   if i == 7:

       dk = int(input('У Петя 2 конфеты, у Саши 3, сколько всего конфет? '))

       if dk == 5:

           print('Молодец')

           k+=1

       else:

           print('Не верно')

   if i == 8:

       dk = int(input('25 + 25? '))

       if dk == 50:

           print('Молодец')

           k+=1

       else:

           print('Не верно')

   if i == 9:

       dk = int(input('У Маши 5 яблок, у Миши 3, сколько всего яблок? '))

       if dk == 8:

           print('Молодец')

           k+=1

       else:

           print('Не верно')

   if i == 10:

       dk = str(input('Чьи штаны на все стороны равны?'))

       if dk == 'Пифагоровы':

           print('Молодец')

           k+=1

       else:

           print('Не верно')

print('Ваш равен ' + str(k))

Электронды пошта (electronic mail, e-mail) – Интернет желісінде ең атақты қолдану. Бұл бөлімде Интернетте қолданылатын электронды поштаның негізгі хаттамасы туралы толық жазылған.

Электронды пошта ең басында қолдан жасалған пошталық жүйе түрінде болды.  Сауда түрі, мысалы IBM компаниясымен PROFS (Professional Office System), бірінші тек қана мэйнфреймдар мен шағын-ЭЕМ үшін өңделді.

Бірақ жергілікті желілердің пайда болуы электронды поштаның сауда өнімінің дамуына әкелді. Бұл жүзеге асыру таныс жетіспеушілік –стандартты хаттамаларды толық емес қолдау. Пошталық сервер сапасында файлдық сервер алға шығып, кейде «хабарды сақтау орны» деп атайды. Файлдық серверде сақталатын, файлға ақпаратты жазып, персоналды компьютерлер жергілікті бір желі электронды поштамен айырбасталды. Соңғысы, өз кезегімен әртүрлі операциондық жүйемен файлдарды біріктіру қолдануын қамтамасыз етеді, мысалы Microsoft LAN Manager және Novell NetWare.

Хабарламаның сапар желіктеуіші бір сақтаудан екіншіге өтуі жеке хаттамалардың немесе версия арқылы стандартқа толық сай емес орындалады. Екі хабарламаны сақтау бір жергілікті желіде бар болуы мүмкін, және жалпы желі арқылы немесе телефон байланыс көмегімен байланысады. Жергілікті желі үшін Электрондық поштаның жүйесіне Microsoft Mail и Lotus cc:Mail жатады. Жергілікті желі үшін электронды пошта бөлім деңгейінде өте жақсы жұмыс істейді. Бұндай жүйелер нашар масштабталған, кейде бірнеше пошталық серверді (бөлімге бірден немесе одан көп бойынша) біріктіру кезінде біраз администраторлық қиындықтар пайда болады.