#include <iostream>
using namespace std;
int main()
{
setlocale(LC_ALL, "Russian");
int a, b;
cin >> a;
cin >> b;
cout << "НОД(" << a << ";" << b << ")=";
while (a != 0 and b != 0) {
if (a > b) {
a = a % b;
}
else {
b = b % a;
}
}
cout << a + b << endl;
}
// PascalABC.NET 3.0, сборка 1076
function ak(n,m:integer):longint;
begin
if n=0 then ak:=m+1
else
if m=0 then ak:=ak(n-1,1)
else ak:=ak(n-1,ak(n,m-1))
end;
begin
Writeln('A(3,3)=',ak(3,3))
end.
<em><u>Тестовое решение:</u></em>
A(3,3)=61
А(4,1) - вызывает аварийное завершение программы по переполнению стека из-за большой глубины рекурсии.
Ответ:
примерно так только я не знаю принцип работы
Var
n:integer;
Begin
Write('Введите число ');
Readln(n);
if sqr(n) = (4*(sqr(n div 10)*(n div 10)+sqr(n mod 10)*(n mod 10))) then write('Ответ положительный') else write('Ответ отрицательный');
<span>End.</span>