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

@Kinglegivar · Регистрация: 17.05.2015

Author24 — интернет-сервис помощи студентам

помогите, пожалуйста, перевести :

Pascal

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.

в С++. Заранее спасибо.

@Max Dark · 17.05.2015, 18:49

C++

#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;
}

@brine38 · 17.05.2015, 19:20

Проще для понимания:

C++

#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");
}

	17.05.2015, 19:20

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

Решение