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

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

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

C Паскаля на С++ - C++

18.12.2011, 11:58. Просмотров 360. Ответов 1
Метки нет (Все метки)

помогите пожалуйста переделать это на С++ язык...очень нужно
Delphi
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
{ На интервале (1000 ; 9999) найти все простые числа,
  каждое из которых обладает тем свойством, что сумма
  первой и второй цифр записи этого числа равна сумме
  третьей и четвёртой цифр                            }
 uses crt;
 var b:array[1..1000] of longint;er:integer;
     i,j,fl,h,s1,s2,s3,s4:longint;
     ii:string;label met1,met2;
 begin
  clrscr;
   i:=1000;
   met1:while i<=9999 do
        begin
         for j:=2 to i-1 do
     if i mod j=0 then begin fl:=1;goto met2; end;
    met2:if fl=0 then begin
                       str(i,ii);
                       val(ii[1],s1,er);val(ii[3],s3,er);
                       val(ii[2],s2,er);val(ii[4],s4,er);
                       if s1+s2=s3+s4 then
                begin
                         inc(h);b[h]:=i;inc(i);goto met1;
                        end;
                      end;
         fl:=0;inc(i);
        end;
    for i:=1 to h do write(b[i],' ');
  readln;
 end.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
18.12.2011, 11:58
Здравствуйте! Я подобрал для вас темы с ответами на вопрос C Паскаля на С++ (C++):

с паскаля на Си++ - C++
uses crt; var a:array of integer; i,n,max,min:integer; c:char; begin ClrScr; repeat writeln('Выберите действие:');...

Из Паскаля в С++ - C++
Дана программа на Паскале: Program q; var a,b:byte; begin Writeln('Двузначные числа, удвоенная сумма цифр которых равна...

Из Паскаля на СИ - C++
const c = 9; var a, b, x, y: real; begin write('Введите x: '); readln(x); b := x + c * c; a := exp(ln(abs(92))...

Из Паскаля на С++ - C++
Здравствуйте. Помогите переписать это решение на C++. uses crt; var a:integer; function del(n:integer):integer; var...

из паскаля в си) - C++
Переведите мне пожалуйста прогу, написанную в паскале, в си))))) для меня это очень важно))))))) завтра последний срок) program...

Из паскаля в С++ - C++
Program lab5; Var a:array of integer; n,I,min,k:integer; P:longint; s:real; Begin Writeln('введите размерность массива'); ...

1
taras atavin
3569 / 1752 / 91
Регистрация: 24.11.2009
Сообщений: 27,619
18.12.2011, 12:22 #2
Это проще перевести с русского в комментарии, чем с паскаля.
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
unsigned int calc()
{
 unsigned int x;
 unsigned int y;
 unsigned int i;
 unsigned int r;
 unsigned int s1;
 unsigned int s2;
 unsigned int d;
 for (x=1000, r=0, x<=1999; ++x)
 {
  for (y=x, i=4, s1=0, s2=0; i>=1; --i, y/=10)
  {
   d=y%10;
   if (i<3)
   {
    s1+=d;
   }
   else
   {
    s2+=d;
   }
  }
  if (s1==s2)
  {
   ++r;
  }
 }
 return r;
}
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
18.12.2011, 12:22
Привет! Вот еще темы с ответами:

С Паскаля на С++ - C++
Дана целочисленная матрица размера M × N. Найти количество ее строк, все элементы которых различны. ...

Из паскаля в С++ - C++
Ребят, помогите, пожалуйста, перевести из паскаля в С++, буду благодарен за помощь. Заранее спасибо. program example1; var ...

С Паскаля на С++ - C++
program Matrix25; var MAx,Sum,num,j,i,M,N:integer; a: array of integer; begin // Ввод данных writeln('Введите числа M (M&lt;=10)...

с паскаля в с++ - C++
помогите перевести с код паскаля в с++ program MYstring; var len1, len2:byte; s1, s2: string; function center (s1,s2:string;...


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

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

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