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 << "Ответ отрицательный";

}

Answer 2

Sure, I can help you translate the Pascal code into C++. Here are the translations for each of the three Pascal codes:

1. Pascal to C++:

cppCopy code
#include <iostream>
using namespace std;

int main() {
    int n;
    cout << "Введите число: ";
    cin >> n;

    if (n * n == (4 * ((n / 10) * (n / 10) + (n % 10) * (n % 10))))
        cout << "Ответ положительный" << endl;
    else
        cout << "Ответ отрицательный" << endl;

    return 0;
}

2. Pascal to C++:

cppCopy code
#include <iostream>
using namespace std;

int main() {
    int a;
    cin >> a;

    if ((a % 10 + a / 10 > 10) && (a % 10 + a / 10 < 100))
        cout << "двузначное" << endl;
    else
        cout << "не двузначное" << endl;

    if (a % 10 + a / 10 > a)
        cout << "больше" << endl;
    else
        cout << "не больше" << endl;

    return 0;
}

3. Pascal to C++:

cppCopy code
#include <iostream>
using namespace std;

int main() {
    int n, s, a;
    
    do {
        cout << "Введите число N: ";
        cin >> n;
    } while (n < 10 || n > 99);

    cout << "Введите число a: ";
    cin >> a;

    s = (n / 10) + (n % 10);

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

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

    return 0;
}

These C++ programs should produce the same results as their corresponding Pascal codes.