Форум программистов, компьютерный форум CyberForum.ru
Наши страницы

С++ для начинающих

Войти
Регистрация
Восстановить пароль
 
Mr_Foster
0 / 0 / 0
Регистрация: 21.09.2013
Сообщений: 13
#1

Программу pascal переписать под c++ - C++

21.09.2013, 14:56. Просмотров 257. Ответов 2
Метки нет (Все метки)

Напечатать в возрастающем порядке все числа от 100 до 999, в десятичной записи в которых нет одинаковых цифр.

Pascal
1
2
3
4
5
6
7
8
9
10
Var s:string;
    i:integer;
Begin
    writeln('Числа у которых все цифры различны:');
    For i:=100 to 999 do
     Begin
      Str(i,s);
      if (s[1]<>s[2])and(s[1]<>s[3])and(s[2]<>s[3]) then write(s:5);
     End;
End.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
21.09.2013, 14:56
Здравствуйте! Я подобрал для вас темы с ответами на вопрос Программу pascal переписать под c++ (C++):

Программу pascal переписать под c++ - C++
Всем доброго времени суток, прошу помощи у вас по скольку слабо разбераюсь в этой отрасли. program gth; Uses crt; ...

Программу Pascal переписать под c++ - C++
Всем доброго времени суток много увожаемые пользователи форума. Прошу помощи у вас, по скольку очень плохо владею языком c++ program...

Программу pascal переписать под c++ условные операторы - C++
Всем доброго времени суток помогите переписать программу под c++ program lolz; Var a,c,x,f:real Begin ...

Программы pascal переписать под c++ - C++
Всем доброго времени суток помогите переписать программы под c++ Условие Дано натуральное число n, и действительное число x....

Программы pascal переписать под c++ - C++
Доброго времени суток. вот последняя программа которую нужно сделать под c++ Я знаю парни я вам надоел уже :) Больше не буду вас...

Программы pascal переписать под c++ - C++
Всем доброго времени суток помогите переписать программы под c++ Условие Дано натуральное число n, и действительное число x....

2
Belfegor
Ghost
173 / 173 / 6
Регистрация: 16.09.2012
Сообщений: 526
21.09.2013, 15:27 #2
C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
#include <iostream>
 
using namespace std;
 
int main() {
    for (int i = 100; i < 999; i++) {
        int n1 = i % 10;
        int n2 = (i % 100 - n1) / 10;
        int n3 = (i % 1000 - n1) / 100;
        if (n3 != n2 && n3 != n1 && n2 != n1)cout << i << ' ';
    }
    cout << endl;
    return 0;
}
1
Mr_Foster
0 / 0 / 0
Регистрация: 21.09.2013
Сообщений: 13
21.09.2013, 15:32  [ТС] #3
Цитата Сообщение от Belfegor Посмотреть сообщение
C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
#include <iostream>
 
using namespace std;
 
int main() {
    for (int i = 100; i < 999; i++) {
        int n1 = i % 10;
        int n2 = (i % 100 - n1) / 10;
        int n3 = (i % 1000 - n1) / 100;
        if (n3 != n2 && n3 != n1 && n2 != n1)cout << i << ' ';
    }
    cout << endl;
    return 0;
}
при много благодарен вам!
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
21.09.2013, 15:32
Привет! Вот еще темы с ответами:

Переписать за меня программу с Pascal на С++ - C++
Кто может первести код из Паскаля в си++? uses wincrt; var x : array of byte i,j, m,n : byte; begin ...

Переписать с Pascal на С++ - C++
Var f1,f2: File of Real; i,n,k: Integer; x,s: Real; BEGIN Write('Введите кол-во чисел: '); Readln(n); ...

Переписать с pascal на c++ - C++
const a=5.7;b0=2;bk=8;h=2;x3=30;b1=4;b2=6; begin writeln('k = ',(b0+5.6)+(b1+5.6)+(b2+5.6)+(bk+5.6)+(x3/7*5.7)); end.

Переписать код с Pascal - C++
я тут написал на паскале нужно на С++ uses crt; var a,b:integer; q:boolean; z:real; begin clrscr; ...


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

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

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