Форум программистов, компьютерный форум, киберфорум
Наши страницы
С++ для начинающих
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.60/5: Рейтинг темы: голосов - 5, средняя оценка - 4.60
ВС17061998
0 / 0 / 0
Регистрация: 28.05.2015
Сообщений: 35
1

Перевести с Паскаля на С++

28.05.2015, 23:22. Просмотров 855. Ответов 2
Метки нет (Все метки)

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
uses crt;
var n,k:byte;
    p,s:longint;
begin
clrscr;
write('Введите произведение нескольких первых нечетных натуральных чисел p=');
readln(p);
s:=1;
n:=1;
k:=1;
while s<p do
 begin
  k:=k+2;
  n:=n+1;
  s:=s*k;
 end;
if s<>p then write('Число ',p,' не является произведением первых нечетных чисел')
else write('Взято множителей - ',n);
readln
end.
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
28.05.2015, 23:22
Ответы с готовыми решениями:

Перевести из Паскаля на С++
var d, m: integer; begin writeln('Введіть день'); readln (d);...

Перевести с паскаля на C++
помогите перевести с паскаля на C++ , очень надо.:) var n,i,j,k,l:longint;...

Перевести с паскаля на си
Здравствуйте,помогите пожалуйста перевести с паскаля на си var s: string; ...

Перевести из паскаля на с++
program laba3; var n, i: integer; ...

Перевести с Паскаля на Си
uses crt; var a,n:Longint; b:boolean; begin clrscr;...

2
SatanaXIII
Почетный модератор
Эксперт С++
5773 / 2773 / 376
Регистрация: 01.11.2011
Сообщений: 6,743
Завершенные тесты: 1
29.05.2015, 10:43 2
Лучший ответ Сообщение было отмечено SatanaXIII как решение

Решение

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
#include <iostream>
 
using namespace std;
int main()
{
long int s = 1, p = 0;
int      n = 1, k = 1;
 
cout << "Введите произведение нескольких первых нечетных натуральных чисел p=";
cin >> p;
 
while( s < p )
  {
  k += 2;
  n += 1;
  s *= k;
  }
if( s != p )
  cout << "Число " << p << " не является произведением первых нечетных чисел";
else
  cout << "Взято множителей - " << n;
 
cin.ignore(2);
}
0
ВС17061998
0 / 0 / 0
Регистрация: 28.05.2015
Сообщений: 35
31.05.2015, 17:43  [ТС] 3
спасиба
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
31.05.2015, 17:43

Перевести с паскаля на С++
Program p1; Var x,i,n:integer; Begin Write ('n= '); Read (n); x:=10;...

Перевести с Паскаля на С++
Помогите, пожалуйста! Переведите код с Паскаля на С++!! Срочно!! program...

Перевести с Паскаля на С++
Program Proc; procedure MinMax(var A,B:real); var temp:real; begin if...


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

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

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