Помогите пожалуйста перевести код с Pascal в С++ 1)Var* n:integer; Begin* ...

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<br> * * * * * *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

#include

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

}

Comments

#include

using namespace std;

int main ()
{
int a;

setlocale(LC_ALL,"RUS");

cin >> a;

if(((a % 10 + a / 10) > 10) && ((a % 10 + a/100) < 100))
cout << "Двузначное\n";<br> else
cout << "Не двузначное\n";<br>
if ((a % 10 + a / 10) > a)
cout << "Больше\n";<br> else
cout << "Не больше\n";<br>}

---

#include

using namespace std;

int main ()
{
setlocale(LC_ALL,"RUS");

int n, s, a;

do
{
cout << "Введите число N: ";<br> cin >> n;
} while (n >= 10 || n <=99);<br>
s = n % 10 + n / 10;

if (s % 3 == 0)
cout << "Сумма цифр кратна 3" << endl;<br> else
cout << "Сумма цифр не кратна 3" << endl;;<br>
if (s % a == 0)
cout << "Сумма цифр кратна " << a << endl;<br> else
cout << "Сумма цифр не кратна " << a << endl;<br>}