0 / 0 / 0
Регистрация: 17.05.2015
Сообщений: 6
1

Перевод из паскаля в С++

17.05.2015, 18:41. Показов 1102. Ответов 2
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
помогите, пожалуйста, перевести :
Pascal
1
2
3
4
5
6
7
8
9
10
11
Program enot;
var
  c, a : integer;
begin
  c:=0;
  repeat
    read (a);
     if (a mod 3=0) and (a mod 10=4) then inc (c);
  until a= 0;
  writeln (c);
end.
в С++. Заранее спасибо.
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
17.05.2015, 18:41
Ответы с готовыми решениями:

Перевод кода с Паскаля (перевод в метры)
var a,b,d:integer; c,e:real; begin writeln('1-дециметр 2-километр'); writeln('3-метр ...

Перевод из паскаля в с++
Помогите перевести type matrix = array of integer; var a:matrix; i,j,k:integer; ...

Перевод из Паскаля в C++
Переведите программу из Паскаля в С++, пожалусйта Вот код : const nmax=100; var a: array...

Перевод с Паскаля в С++
var n: longint; max,x: byte; begin write('Введите число n: '); readln(n); max:=n...

2
шКодер самоучка
2227 / 1921 / 927
Регистрация: 09.10.2013
Сообщений: 4,260
Записей в блоге: 7
17.05.2015, 18:49 2
Лучший ответ Сообщение было отмечено Kinglegivar как решение

Решение

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
#include <iostream>
 
int main() {
    int a, c = 0;
    do {
        std::cin >> a;
        if(a %  3 != 0) continue;
        if(a % 10 != 4) continue;
        ++c;
    }
    while(a != 0);
    std::cout << c << std::endl;
    return 0;
}
1
1 / 1 / 2
Регистрация: 09.04.2015
Сообщений: 16
17.05.2015, 19:20 3
Проще для понимания:
C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
#include <iostream> 
using namespace std; 
int a;
int c = 0;
void main()
{
cout << "enot" << endl;
cin >> a;
while (a != 0)
   {
    if ((a % 3 == 0) && (a % 10 == 4))
    c = c + 1; 
    cin >> a;
   } 
cout << "c: " << c; 
system("pause");
}
0
17.05.2015, 19:20
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
17.05.2015, 19:20
Помогаю со студенческими работами здесь

Перевод с паскаля на с#
Очень нужна помощь, помогите перевести следующий кусок кода. Не понимаю, я как написать это шарпе....

Перевод из Паскаля на С++
var CarDoor: integer; SelectedDoor: integer; RevealedDoor: integer; i: integer;...

Перевод с паскаля на Си
Помогите, пожалуйста, перевести с паскаля на си const d = 6; var N: integer; a: array of...

Перевод с Паскаля на C++
Помогите пожалуйста перевести это код на C++!!!!!! Uses crt,graph; label 2,3,4; Var...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru