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

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

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

Переведите с Pascal на C++ - C++

08.06.2014, 17:30. Просмотров 158. Ответов 0
Метки нет (Все метки)

Пожалуйста, переведите с Pascal на C++
Pascal
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
var t:string;
   c:char;
   code:word;
   a, b, rez, i, mm, j, ti, temp:longint;
   flag:boolean;
function proste(t:longint):boolean;
var s, i, k, j:longint;
begin
  proste:=false;
  if t=1 then proste:=false else
  if t=2 then proste:=true
         else begin
                   k:=0;
                   for i:=2 to trunc(sqrt(t)) do
                       if t mod i = 0 then k:=k+1;
                   if k=0 then proste:=true;
              end;
end;
BEGIN
    readln (a, b);
    if a>b then begin i:=a; a:=b; b:=i; end;
    rez:=0;
    for i:=a to b do
    begin
         if proste(i) then
         begin
              t:=''; temp:=i;
              while temp>0 do
              begin
                   t:=t+chr((temp mod 10) +48);
                   temp:=temp div 10;
              end;
              val(t, ti, code);
              if proste(ti) then inc (rez);
         end;
    end;
    writeln (rez);
END.
Добавлено через 8 минут
Уже не нужно, спасибо.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
08.06.2014, 17:30
Здравствуйте! Я подобрал для вас темы с ответами на вопрос Переведите с Pascal на C++ (C++):

Переведите из Pascal в C++ - C++
Переведите из Pascal в C++, пожалуйста. type Zavedenie = record typ : Byte; kol : word; end; var a : array of...

Переведите с Pascal на С++ - C++
Пожалуйста, переведите с Pascal на С++ function Min(a, b, c, d: integer): integer; var iMIn: integer; begin iMin := a; ...

Переведите с Pascal на C++ - C++
Уважаемые программисты, переведите с Pascal на C++, пожалуйста var a, h, z:longint; tz, tgz, rez:real; begin readln (a,...

Переведите с Pascal на C++ - C++
program stringtale; var x,y:array of char; n,i,s:integer;t:boolean;p:char; Begin readln(n); for i:=1 to n do...

Переведите с Pascal на C++ - C++
var m, n, i : integer; a : array of longint; begin assign(input,'input.txt'); reset(input); 268 assign(output,'output.txt');...

Переведите с Pascal на C++ - C++
Var f,g: Text; i,n: Integer; s: String; BEGIN Write('Vvedite kol-vo chisel: '); Readln(n); Randomize; ...

0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
08.06.2014, 17:30
Привет! Вот еще темы с ответами:

Переведите с Pascal на C++ - C++
uses crt; var s:string; i,m,n:integer; begin clrscr; writeln('введите текст'); readln(s); for i:=1 to length(s) do m:=0;

Переведите с Pascal на C++ - C++
Пожалуйста, переведите на C++ var a:array of longint; n,m,i,j,i1,j1,max:Longint; begin read(n,m); for i:=0 to n-1 do for...

Переведите с Pascal в C++ - C++
помогите пож с заданиями,очень нужно на завтра( 1) переведите пож в с ++ код var a1,b1,h1,p1,s1,a2,b2,h2,p2,s2,sp,ss:Real; ...

Переведите код с Pascal на С++ - C++
program lab100301; uses crt; type tablica=record name:string; sred:real; rus,math,fiz:byte; end; var ...


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

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

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