Перевод с паскаль на c++

@VanGog101 · Регистрация: 16.10.2019

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

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
var
n, x, k:longint;
c1,c2,c4,c5:byte;
begin
    k:=0;
    for n:= 10000 to 99999 do begin
        x:=n;
        c5:= x mod 10; x:= x div 10;
        c4:= x mod 10; x:= x div 100;
        c2:= x mod 10; c1:= x div 10;
        if abs((c1+c2) - (c4+c5)) <= 2 then inc(k);
    end;
    write(k)
end.

@FFPowerMan · 16.10.2019, 19:05

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
#include <iostream>
#include <string>
using namespace std;
 
int main()
{
    int n, x, k;
    unsigned char c1,c2,c4,c5;
 
    k = 0;
    for(n = 10000; n <= 99999; n++)
    {
        x = n;
        c5 = x%10; x /= 10;
        c4 = x%10; x /= 100;
        c2 = x%10; c1 = x / 10;
        if(abs((c1+c2) - (c4+c5)) <= 2)
            k++;
    }
    cout << "k = " <<  k << "\n";
    return 0;
}

http://cpp.sh/2ounf

@VanGog101 · 16.10.2019, 19:13 **[ТС]**

Благодарю

@FFPowerMan · 16.10.2019, 20:04

Подключайте:

C
1
#include <math.h>

для C или:

C++
1
#include <cmath>

для C++, но почему-то у меня и так заработало.

Новые блоги и статьи Все статьи Все блоги /
Автоматическое создание документа при проведении другого документа Maks 29.03.2026 Реализация из решения ниже выполнена на нетиповых документах, разработанных в конфигурации КА2. Есть нетиповой документ "ЗаявкаНаРемонтСпецтехники" и нетиповой документ "ПланированиеСпецтехники". В. . .	Настройка движения справочника по регистру сведений Maks 29.03.2026 Решение ниже реализовано на примере нетипового справочника "ТарифыМобильнойСвязи" разработанного в конфигурации КА2, с целью учета корпоративной мобильной связи в коммерческом предприятии. . . .	Автозаполнение реквизита при выборе элемента справочника Maks 27.03.2026 Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. При выборе "Спецтехники" (Тип Справочник. Спецтехника), заполняется. . .	Сумматор с применением элементов трёх состояний. Hrethgir 26.03.2026 Тут. https:/ / fips. ru/ EGD/ ab3c85c8-836d-4866-871b-c2f0c5d77fbc Первый документ красиво выглядит, но без схемы. Это конечно не даёт никаких плюсов автору, но тем не менее. . . всё может быть. . .
Автозаполнение реквизитов при создании документа Maks 26.03.2026 Программный код из решения ниже размещается в модуле объекта документа, в процедуре "ПриСозданииНаСервере". Алгоритм проверки заполнения реализован для исключения перезаписи значения реквизита,. . .	Команды формы и диалоговое окно Maks 26.03.2026 1. Команда формы "ЗаполнитьЗапчасти". Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. В качестве источника данных. . .	Кому нужен AOT? DevAlt 26.03.2026 Решил сделать простой ланчер Написал заготовку: dotnet new console --aot -o UrlHandler var items = args. Split(":"); var tag = items; var id = items; var executable = args;. . .	Отправка уведомления на почту при создании или изменении элементов справочника Maks 24.03.2026 Программная отправка письма электронной почты на примере типового справочника "Склады" в конфигурации БП3. Перед реализацией необходимо выполнить настройку системной учетной записи электронной. . .

@VanGog101 0 / 0 / 0 Регистрация: 16.10.2019 Сообщений: 9
	16.10.2019, 19:13 [ТС]
	Благодарю 0

Перевод с паскаль на c++

Решение