Переведите с Pascal на C++

@ВС17061998 · Регистрация: 28.05.2015

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

Pascal

Var
  f,g: Text;
  i,n: Integer;
  s: String;
BEGIN
Write('Vvedite kol-vo chisel: ');
Readln(n);
Randomize;
Assign(f,'1.txt');
Rewrite(f);
For i:=1 to n do
Writeln(f,Random(100));
Assign(g,'2.txt');
Rewrite(g);
Reset(f);
While not Eof(f) do
begin
  Readln(f,s);
  If s[Length(s)] in ['0','2','4','6','8'] Then
  Writeln(g,s);
end;
Close(f);
Close(g);
Readln
END.

@nmcf · 14.11.2015, 13:00

C++

#include <iostream>
#include <fstream>
#include <random>
#include <chrono>
 
int main()
{
  int n, s;
 
  std::default_random_engine g(std::chrono::system_clock::now().time_since_epoch().count());
  std::uniform_int_distribution<int> distribution(0, 100);
 
  cout << "Vvedite kol-vo chisel: ";
  cin >> n;
 
  fstream f("1.txt");
  for (int i = 0; i < n; ++i) f << distribution(g) << endl;
  f.seekg(0);
 
  ofstream g("2.txt");
  while (f >> s)
    if ((s % 10) % 2 == 0) g << s << endl;
 
  f.close();
  g.close();
}

	14.11.2015, 13:00

Опции темы

Переведите с Pascal на C++

Решение