Форум программистов, компьютерный форум, киберфорум
Наши страницы
С++ для начинающих
Войти
Регистрация
Восстановить пароль
 
Soulrise
0 / 0 / 2
Регистрация: 18.12.2016
Сообщений: 17
#1

Подскажите как перевести из с++ в паскаль - C++

18.12.2016, 18:56. Просмотров 402. Ответов 2
Метки нет (Все метки)

Нужно перевести из с++ в борланд паскаль, или paskal.ABC.Net

Задача программы такая:

В честь успешного окончания первой четверти родители Пети и Вовы подарили им один лотерейный билет. Как обычно, ребята всерьез не восприняли данный подарок ввиду довольно скудной вероятности выигрыша по их мнению. Но какова было удивление братьев, когда они узнали из средств массовой информации, что номер их билета является выигрышным.

После продолжительных минут радости ребята бросились узнавать сумму выигрыша, но как оказалось, узнать это не так уж просто. Дело в том, что сумма выигрыша отчасти определяется самим владельцем или владельцами (если их несколько) следующим образом. На обратной стороне билета есть определенная секция, стерев слой защитного покрытия, можно увидеть целое положительное число N. После чего, каждый из владельцев билета должен зачеркнуть ровно по одной цифре данного числа N, полученное число и является суммой выигрыша.

Ниже приведен пример с N равным 995051.
9955.


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
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
#include <bits/stdc++.h>
 
using namespace std;
 
typedef long long  ll;
typedef unsigned long long ull;
typedef map <int, int> mii;
typedef pair <int, int> pii;
typedef pair <ll, ll> pll;
 
int const maxn = int(1e5 + 12);
int const maxb = int(2e6 + 12);
int const inf = int(1e9 + 7);
ll const linf = ll(1e18 + 12);
double const eps = 1e-7;
double const pi = acos(-1);
#ifdef _WIN32
    #define I64 "%I64d"
#else
    #define I64 "%lld"
#endif
#define mp make_pair
#define pb push_back
#define F first
#define S second
#define fn
 
string s, ans, cur;
 
void rec(int pos, int cnt)
{
    //cout << pos << " " << cnt << " c:" << cur << " a:" << ans << '\n';
    if (pos == int(s.length()))
    {
        if (!cnt && (ans == "" || cur.length() > ans.length() || cur > ans))
            ans = cur;
        return;
    }
    if (cnt)
        rec(pos + 1, cnt - 1);
    if (cur != "" || s[pos] != '0')
        cur.pb(s[pos]);
    rec(pos + 1, cnt);
    if (cur != "" || s[pos] != '0')
        cur.pop_back();
}
 
int main()
{
    #ifdef fn
        freopen("input.txt", "r", stdin);
        freopen("output.txt", "w", stdout);
    #endif
    cin >> s;
    rec(0, 2);
    cout << ans;
}
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
18.12.2016, 18:56
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Подскажите как перевести из с++ в паскаль (C++):

Подскажите, как при заданном числе Х перевести его в систему счисления с основанием n?
Подскажите, как при заданном числе Х перевести его в систему счисления с...

перевести с Паскаль
123

Перевести с паскаль на С++
uses crt; var m,k, a, b, c, d,v: integer; n,p,z, i,q: real; s:string;...

Перевести с Паскаль на С++
Само задание: вводить массив малых латинских букв, и отсортировать в алфавитном...

перевести с С на паскаль
Переведете пожалуйста код с С++ на паскаль. Очень нужно! Программа должна...

Перевести с Паскаль на С++
я не знал извините то поможете

2
Nishen
456 / 279 / 154
Регистрация: 26.02.2015
Сообщений: 1,321
Завершенные тесты: 2
18.12.2016, 18:58 #2
Цитата Сообщение от Soulrise Посмотреть сообщение
в борланд паскаль
Но это ж форум C++, причем тут Pascal?
0
Soulrise
0 / 0 / 2
Регистрация: 18.12.2016
Сообщений: 17
18.12.2016, 19:24  [ТС] #3
Ну нужно же знать C++
Перенести в тему паскаля?
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
18.12.2016, 19:24
Привет! Вот еще темы с решениями:

Перевести с Паскаль на с++

Перевести с Паскаль на С++
uses crt; var s:string; i:integer; a: set of char; begin clrscr; a:=;...

Перевести код Паскаль на С++
uses crt,dos; type te=record kal,ves,dl,vis:string; med:string;...

Нужно перевести в из Паскаль в c++
uses crt; function f(a,x:real):real; begin if a&gt;=0 then f:=x*cos(a-x+1)...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru