Перевод с языка 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;
}

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Desktop (MinGW): Создаём пустое окно с нуля для 2D-графики на SDL3, Си и C++ 8Observer8 10.03.2026 Содержание блога Финальные проекты на Си и на C++: hello-sdl3-c. zip hello-sdl3-cpp. zip Результат:	Установка CMake и MinGW 13.1 для сборки С и C++ приложений из консоли и из Qt Creator в EXE 8Observer8 10.03.2026 Содержание блога MinGW - это коллекция инструментов для сборки приложений в EXE. CMake - это система сборки приложений. Здесь описаны базовые шаги для старта программирования с помощью CMake и. . .	Как дизайн сайта влияет на конверсию: 7 решений, которые реально повышают заявки Neotwalker 08.03.2026 Многие до сих пор воспринимают дизайн сайта как “красивую оболочку”. На практике всё иначе: дизайн напрямую влияет на то, оставит человек заявку или уйдёт через несколько секунд. Даже если у вас. . .	Модульная разработка через nuget packages DevAlt 07.03.2026 Сложившийся в . Net-среде способ разработки чаще всего предполагает монорепозиторий в котором находятся все исходники. При создании нового решения, мы просто добавляем нужные проекты и имеем. . .
Модульный подход на примере F# DevAlt 06.03.2026 В блоге дяди Боба наткнулся на такое определение: В этой книге («Подход, основанный на вариантах использования») Ивар утверждает, что архитектура программного обеспечения — это структуры,. . .	Управление камерой с помощью скрипта OrbitControls.js на Three.js: Вращение, зум и панорамирование 8Observer8 05.03.2026 Содержание блога Финальная демка в браузере работает на Desktop и мобильных браузерах. Итоговый код: orbit-controls-threejs-js. zip. Сканируйте QR-код на мобильном. Вращайте камеру одним пальцем,. . .	SDL3 для Web (WebAssembly): Синхронизация спрайтов SDL3 и тел Box2D 8Observer8 04.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-sync-physics-sprites-sdl3-c. zip На первой гифке отладочные линии отключены, а на второй включены:. . .	SDL3 для Web (WebAssembly): Идентификация объектов на Box2D v3 - использование userData и событий коллизий 8Observer8 02.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-collision-events-sdl3-c. zip Сканируйте QR-код на мобильном и вы увидите, что появится джойстик для управления главным героем. . . .

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

Решение