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.
Алгоритмический язык кумир (но можно на любом другом)
Пример:
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.
Алгоритмический язык кумир (но можно на любом другом)
Answers & Comments
===== 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.