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

Перевод кода программы с Паскаль на С++

01.08.2012, 08:45. Просмотров 1329. Ответов 2
Метки нет (Все метки)

Pascal
1
2
3
4
5
6
7
8
9
10
11
var a,s:integer;
begin
writeln('Введите последовательность целых чисел, окончание ввода 0');
s:=0;
repeat
readln(a);
if a mod 2=0 then s:=s+a;
until a=0;
write('Сумма четных элементов=',s);
readln
end.
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
01.08.2012, 08:45
Ответы с готовыми решениями:

Перевод кода из си в паскаль
Здравствуйте.Помогите пожалуйста. Я написал программу на си,нужно этот код перевести на паскаль.Я...

Перевод кода из C++ в Паскаль
Есть около 50 задач которые делал на практике, их всех нужно перевести в паскаль, а делать это...

Перевод кода с Си на Паскаль
for (i = 0; i < n ; i++) { for (j = 0; j < n ; j++) { delta1 = i - j; delta2 = i -...

Перевод кода C# в Паскаль
Здравствуйте! Помогите, пожалуйста, перевести этот код в Паскаль. double array = new double;...

2
14 / 14 / 3
Регистрация: 28.07.2012
Сообщений: 57
01.08.2012, 18:45 2
Лучший ответ Сообщение было отмечено hopenik как решение

Решение

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
#include <iostream>
 
using namespace std;
 
int main()
{
   cout << "Введите последовательность целых чисел, окончание ввода 0" << endl;
   int a, s = 0;
    do
        {
            cin >> a;
            if (a % 2 == 0) // if (a & 1 == 0)
                s += a;
        }
    while (a != 0);
    cout << "Сумма четных элементов=" << s;
    return 0;
}
1
0 / 0 / 0
Регистрация: 23.04.2014
Сообщений: 2
01.05.2014, 13:45 3
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
uses crt;
var s:string;
    i,j,k,l,f:integer;
    c:char;
begin
clrscr;
writeln('Vvedite stroku:');
readln(s);
writeln('Simvoly > 3 raz:');
writeln;
f:=0;
for i:=1 to length(s) do
 begin
  k:=0;
  for j:=1 to length(s) do
  if s[i]=s[j] then k:=k+1;
  if k>3 then
    begin
     f:=1;
     c:=s[i];
     writeln('Simvol ',c,' vstrechaetsa ',k,' rz.');
    end;
  for l:=length(s) downto 1 do
  if s[l]=c then delete(s,l,1);
 end;
if f=0 then write('Simvoly > 3 raz ne najdeny!');
readln
end.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
01.05.2014, 13:45

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

Перевод кода с паскаль на С++
Всем привет, имеется участок ассемблероного кода в паскале, который необходимо перенести в С++....

Перевод кода с C++ в паскаль
#include &lt;bits/stdc++.h&gt; using namespace std; typedef long long ll; const int M = 2e5 +...

Перевод кода из Паскаль в C++
Описать функцию InvertStr(S, K, N) строкового типа, возвращающую инвертированную подстроку строки...

Перевод кода с C++ на Паскаль
#include &lt;iostream&gt; #include &lt;cmath&gt; using namespace std; void display(double S1 , double...


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

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

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