Перепишите программу из Pascal в C++

gadalov21

Здравствуйте. Прошу вас о помощи. Есть программа на Pascal. Нужно переписать её на C++, чтобы она выполняла такие же операции. Вот код:
Program t1;
var   n: longint;
      p : int64;
begin
assign(input,'input.txt');
reset(input);
readln(n);
close(input);
if n>=1 then p:=n-1 else p:=abs(int64(n))+1;
assign(output,'output.txt');
rewrite(output);
write(p);
close(output);
end.
2 ответа

gadalov21

Здравствуйте. Прошу вас о помощи. Есть программа на Pascal. Нужно переписать её на C++, чтобы она выполняла такие же операции. Вот код:
Program t1;
var   n: longint;
      p : int64;
begin
assign(input,'input.txt');
reset(input);
readln(n);
close(input);
if n>=1 then p:=n-1 else p:=abs(int64(n))+1;
assign(output,'output.txt');
rewrite(output);
write(p);
close(output);
end.
врятли вам кто нибудь ответит, лучше создайте другую тему с условием задачи.


gadalov21

Перепишите задачу из Pascal на C++ (Есть условие) Так и сделал!Doksim, Перепишите задачу из Pascal на C++ (Есть условие) Так и сделал!Doksim, Перепишите задачу из Pascal на C++ (Есть условие)