Перевод с языка Pascal на С++

@10nDi · Регистрация: 17.08.2017

Студворк — интернет-сервис помощи студентам

Ребята есть программа ее нужно перевести из Паскаля в с++ Не шарю я в с хоть убей помогите пожалуйста

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
program algoritm;
var x: integer;
begin
write('Введите четырехзначное положительное число: ');
readln(x);
if (x > 999) and (x <= 9999) then
begin
if (x div 1000 mod 10 + x div 100 mod 10) > (x div 10 mod 10 + x mod 10) then
writeln('Сумма первой и второй цифры больше')
else
if (x div 1000 mod 10 + x div 100 mod 10) = (x div 10 mod 10 + x mod 10) then
write('Сумма первой и второй пары цифр равны')
else
write('Сумма третьей и четвертой цифры больше')
end
else
writeln('Было введено не четырехзначное число.');
end.
writeln('Было введено не четырехзначное число.');
end.

@anapshy · 18.08.2017, 21:44

10nDi,

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
#include <iostream>     // cout cin
#include <clocale>      // setlocale();
 
int main(void)
{
    std::setlocale(LC_ALL, "Rus");
    unsigned short x(0Ui16); // Unsigned Integer 16 Bit
    std::cout << "Введите четырехзначное положительное число: ";
    std::cin >> x;
    if ((x > 999Ui16) && (x <= 9999Ui16))
    {
        if ((x / 1000Ui16 % 10Ui16 + x / 100Ui16 % 10Ui16) > (x / 10Ui16 % 10Ui16 + x % 10Ui16))
            std::cout << "Сумма первой и второй цифры больше" << std::endl;
        else
        {
            if ((x / 1000Ui16 % 10Ui16 + x / 100Ui16 % 10Ui16) == (x / 10Ui16 % 10Ui16 + x % 10Ui16))
                std::cout << "Сумма первой и второй пары цифр равны" << std::endl;
            else
                std::cout << "Сумма третьей и четвертой цифры больше" << std::endl;
        }
    }
    else
        std::cout << "Было введено не четырехзначное число." << std::endl;
    std::cin.ignore();
    std::cin.get();
    return 0;
}

@GeFacle · 19.08.2017, 14:25

anapshy, зачем так замудрил то? тут же явно не разберется ТС

Добавлено через 27 минут

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
#include <iostream>
#include <cstdlib>
 
using namespace std;
 
int main()
{
    setlocale(0, "");
    int val; cin >> val;
    if (val > 999 && val < 10000)
    {
        if ((val / 1000 % 10 + val / 100 % 10) > (val / 10 % 10 + val % 10))
        {
            cout << "Сумма первой и второй цифры больше" << endl;
        }
        else
        {
            if ((val / 1000 % 10 + val / 100 % 10) == (val / 10 % 10 + val % 10))
            {
                cout << "Сумма первой и второй пары цифр равны" << endl;
            }
            else
            {
                cout << "Сумма третьей и четвертой цифры больше" << endl;
            }
        }
    }
    else
    {
        cout << "Было введено не четырехзначное число." << endl;
    }
    system("pause");
    return 0;
}

Новые блоги и статьи Все статьи Все блоги /
Новый ноутбук volvo 07.12.2025 Всем привет. По скидке в "черную пятницу" взял себе новый ноутбук Lenovo ThinkBook 16 G7 на Амазоне: Ryzen 5 7533HS 64 Gb DDR5 1Tb NVMe 16" Full HD Display Win11 Pro	Музыка, написанная Искусственным Интеллектом volvo 04.12.2025 Всем привет. Некоторое время назад меня заинтересовало, что уже умеет ИИ в плане написания музыки для песен, и, собственно, исполнения этих самых песен. Стихов у нас много, уже вышли 4 книги, еще 3. . .	От async/await к виртуальным потокам в Python IndentationError 23.11.2025 Армин Ронахер поставил под сомнение async/ await. Создатель Flask заявляет: цветные функции - провал, виртуальные потоки - решение. Не threading-динозавры, а новое поколение лёгких потоков. Откат?. . .	Поиск "дружественных имён" СОМ портов Argus19 22.11.2025 Поиск "дружественных имён" СОМ портов На странице: https:/ / norseev. ru/ 2018/ 01/ 04/ comportlist_windows/ нашёл схожую тему. Там приведён код на С++, который показывает только имена СОМ портов, типа,. . .	Сколько Государство потратило денег на меня, обеспечивая инсулином. Programma_Boinc 20.11.2025 Сколько Государство потратило денег на меня, обеспечивая инсулином. Вот решила сделать интересный приблизительный подсчет, сколько государство потратило на меня денег на покупку инсулинов. . . .
Ломающие изменения в C#.NStar Alpha Etyuhibosecyu 20.11.2025 Уже можно не только тестировать, но и пользоваться C#. NStar - писать оконные приложения, содержащие надписи, кнопки, текстовые поля и даже изображения, например, моя игра "Три в ряд" написана на этом. . .	Мысли в слух kumehtar 18.11.2025 Кстати, совсем недавно имел разговор на тему медитаций с людьми. И обнаружил, что они вообще не понимают что такое медитация и зачем она нужна. Самые базовые вещи. Для них это - когда просто люди. . .	Создание Single Page Application на фреймах krapotkin 16.11.2025 Статья исключительно для начинающих. Подходы оригинальностью не блещут. В век Веб все очень привыкли к дизайну Single-Page-Application . Быстренько разберем подход "на фреймах". Мы делаем одну. . .	Фото: Daniel Greenwood kumehtar 13.11.2025	Расскажи мне о Мире, бродяга kumehtar 12.11.2025 — Расскажи мне о Мире, бродяга, Ты же видел моря и метели. Как сменялись короны и стяги, Как эпохи стрелою летели. - Этот мир — это крылья и горы, Снег и пламя, любовь и тревоги, И бескрайние. . .

Перевод с языка Pascal на С++

Решение