Question

Помогите пожалуйста перевести код с Pascal в С++
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('Ответ отрицательный');
End.

2)Var
a:integer;
begin
* *readln(a);
* * * if (a mod 10+a div*10>10) and(a mod 10+ a div 10<100) then
* * * * * *writeln('двузначное')
* * * else writeln('не двузначное');
if a mod 10+a div 10>a then
* * writeln('больше')
else writeln('не больше');
end.

3)Var n,s,a:integer;
Begin
Repeat
write('Введите число N: ');readln(n);
Until n in [10..99];
write('Введите число a: ');readln(a);
s:=(n div 10)+(n mod 10);
if s mod 3 = 0 then writeln('Сумма цифр кратна 3')
else writeln('Сумма цифр не кратна 3');
if s mod a = 0 then writeln('Сумма цифр кратна ',a)
else writeln('Сумма цифр не кратна ',a);
End.

Answer 1

#include <iostream>

#include <cmath>

using namespace std;

int main ()

{

int n;

setlocale(LC_ALL, "RUS");

cout << "Введите число";

cin >> n;

if (sqrt(n) == (4 * sqrt(n % 10) * (n / 10) + sqrt(n % 10) * (n % 10)))

cout << "Ответ положительный";

else

cout << "Ответ отрицательный";

}