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

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

Войти
Регистрация
Восстановить пароль
Другие темы раздела
C++ LINK : fatal error LNK1123: сбой при преобразовании в COFF: файл недопустим или поврежден http://www.cyberforum.ru/cpp-beginners/thread1202752.html
хочу подключить библиотеку ICU. Выдает мне такую ошибку. Что делать? C:\Program Files (x86)\MSBuild\Microsoft.Cpp\v4.0\Microsoft.CppBuild.targets(990,5): warning MSB8012:...
C++ Вычислить суммарное количество мест и количество мест в гостинице Написать программу работы с массивом из 10 объектов Объекты - номера в отеле. Требуется вычислить суммарное количество мест и количество мест в гостинице, суммарную стоимость. Помогите... http://www.cyberforum.ru/cpp-beginners/thread1202751.html
C++ семантические сети
Всем привет, может кто знает небольшую программу по теме "Предоставление знаний с помощью семантических сетей" если есть, то поделитесь, если будет описание кода, так вообще цены вам не будет
C++ Не работает функция strlen
#include <iostream> #include <string.h> using namespace std; int main() { string s; int n=0,i=0,j=0,length=0; cout<<"enter a complete sentence:"<<endl;
C++ С++ Одна из задач ЕгЭ С4 http://www.cyberforum.ru/cpp-beginners/thread1202739.html
Задача С4 На вход в программе подаются сведения о студентах с 1-го по 5-й курс некоторого вуза. В первой строке сообщается количество студентов N, которое больше 20, но меньше или равно 100,...
C++ Есть строка, состоящая из слов, разделенных любым количеством пробелов Есть строка, состоящая из слов, разделенных любым количеством пробелов. Напишите программу, которая выводит на экран четыре и более следующих друг за другом без учета промежутков гласных букв. ... подробнее

Показать сообщение отдельно
nata95
1 / 1 / 0
Регистрация: 05.01.2014
Сообщений: 109

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

08.06.2014, 17:30. Просмотров 163. Ответов 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
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
 
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2017, vBulletin Solutions, Inc.