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