Форум программистов, компьютерный форум, киберфорум
С++ для начинающих
Войти
Регистрация
Восстановить пароль
 
qwer1234
13 / 13 / 4
Регистрация: 30.10.2012
Сообщений: 463
1

Перепишите пожалуйста код с языка Pascal на C++

28.10.2013, 10:51. Просмотров 250. Ответов 0
Метки нет (Все метки)

Вот сам код.

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
39
40
{$N+}
uses crt;
const nmax=60;
function Step2(n:byte):extended;
var p:extended;
i:byte;
begin
p:=1;
for i:=1 to n do
p:=p*2;
Step2:=p;
end;
function Prost(n:longint):boolean;
var i:longint;
begin
if n<2 then Prost:=false
else
begin
Prost:=true;
for i:=2 to round(sqrt(n)) do
if n mod i=0 then
begin
Prost:=false;
break;
end;
end;
end;
 
var n,i:byte;
begin
clrscr;
repeat
write('Введите число до ',nmax,' n=');
readln(n);
until n in [1..nmax];
for i:=1 to n-1 do
if Prost(i) then
writeln(Step2(i)-1:0:0,' ');
readln
end.
0
QA
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
28.10.2013, 10:51
Ответы с готовыми решениями:

Перепишите пожалуйста код программы с языка Visual Basic в C++
Вот код на языке Visual Basic Randomize Timer Dim A(19) As integer For i=0 to 19...

Перепишите пожалуйста код с языка С++ на Visual Basic
Вот кусок кода который нужно переписать на Visual Basic int A=12.83, B=0.863,P=3.14; double o;...

Перепишите, пожалуйста, программу с pascal на с++
Var a, b, c, m, n, d: integer; L: boolean; begin writeln('a'); read(a); writeln('b');...

дан код на С++ перепишите на Pascal
#include &lt;iostream.h&gt; #include &lt;conio.h&gt; #include &lt;math.h&gt; void main() { clrscr(); int...

0
Answers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
28.10.2013, 10:51

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

Перепишите пожалуйста код на builder c+

Перепишите мой код с C# на C++, пожалуйста
Без динамических массивов На C# написал за 2 минуты, а нужно на C++. Никак. using System; ...

Транслировать заданный код с языка Pascal в исходный код ассемблер
Транслировать заданный код с языка Pascal в исходный код ассемблерVar a:byte; b:byte; c:word;...

Переведите пожалуйста с языка QBasic/QuickBASIC на язык Pascal
DECLARE SUB Show (a!()) DIM a(20), b(20) RANDOMIZE TIMER PRINT &quot;A =&quot; Show a() PRINT &quot;B =&quot;...


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

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

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