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

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

Восстановить пароль Регистрация
 
shiro93
 Аватар для shiro93
1 / 1 / 0
Регистрация: 09.11.2011
Сообщений: 199
18.12.2011, 11:58     C Паскаля на С++ #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.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
18.12.2011, 11:58     C Паскаля на С++
Посмотрите здесь:

с паскаля на Си++ C++
из паскаля в С++ C++
Из паскаля в С++ C++
С паскаля на с++ C++
С паскаля в С++ C++
C++ С Паскаля на С++
С Паскаля на С++ C++
C++ с паскаля в с++

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

Или воспользуйтесь поиском по форуму:
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
taras atavin
Ушёл с форума.
 Аватар для taras atavin
3569 / 1752 / 91
Регистрация: 24.11.2009
Сообщений: 27,619
18.12.2011, 12:22     C Паскаля на С++ #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;
}
Yandex
Объявления
18.12.2011, 12:22     C Паскаля на С++
Ответ Создать тему
Опции темы

Текущее время: 15:36. Часовой пояс GMT +3.
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2016, vBulletin Solutions, Inc.
Рейтинг@Mail.ru