Урок 25

Решение практических задач

Теоретическая часть

Задача. Алгоритм Евклида для вычисления наибольшего общего делителя (НОД) двух натуральных чисел приведён ниже:

   program Evrlid;

     var a,b:integer;

   begin

     write(' a = ');

     read(a);

     write(' b = ');

     read(b);

          while a<>b do

             if a>b then   a := a - b  else   b := b - a;

      writeln('НОД = ',a);

   end.

Задание. Напишите программу, используя модифицированный алгоритм Евклида: нужно заменить большее число на остаток от деления большего на меньшее до тех пор, пока этот остаток не станет равен нулю, тогда второе число и есть НОД

Практическая часть

Задание 1. Напишите программу, которая считает сумму цифр введенного числа.

Задание 2. Напишите программу вычисления НОД трёх чисел используя алгоритм Евклида.

Электронная рабочая тетрадь

Задание 1. Выражения (слова из букв)

Задание 2. Выражения (таблица соответствий)

Задание 3. Логические операции (найти пару)

Задание 4. Повторение (ввод текста)

Задание 5. Программы (игра парочки)