Question

4.2.4 Вывести квадраты и кубы 10 чисел следующей последовательности: 2, 2, 4, 6, 10, 16, 26 ...
Пример:
2 * 2 = 4
2 * 2 * 2 = 8
2 * 2 = 4
2 * 2 * 2 = 8
4 * 4 = 16
4 * 4 * 4 = 64
...
4.2.5 Составить программу для вычисления НОД трех чисел с помощью модифицированного алгоритма Евклида
Пример:
Введите три целых числа:
30 72 126
НОД(30, 72, 126) равно 6.
Алгоритмический язык кумир (но можно на любом другом)

Answer 1

===== PascalABC.NET =====

// 4.2.4

begin

 foreach var k in SeqGen(10, 2, 2, (a, b) -> a + b) do

 begin

   Writeln($'{k} * {k} = {k * k}');

   Writeln($'{k} * {k} * {k} = {k * k * k}');

 end  

end.

// 4.2.5

function НОД(a, b: integer): integer;

begin

 while b <> 0 do

   (a, b) := (b, a mod b);

 Result := a

end;

begin

 var (a, b, c) := ReadInteger3('Введите три целых числа:');

 Writeln('НОД(', a, ', ', b, ', ', c, ') равен ', НОД(НОД(a, b), c))

end.