Var a,b:longint; c:text; begin assign(c, 'Input.txt'); reset(c); read(c,a,b); close(c); assign(c, 'Output.txt'); rewrite(c); writeln(c,a,' ',b); close(c); end.
P.S. в файле Input.txt введены 2 числа через пробел, эти же числа копируются в Output.txt, для проверки программы, создавай папку и 2 файла Input.txt и Output.txt, далее копируй текст программы в паскаль и сохраняй программу в ту папку где 2 файла в формате паскаля (*.pas), и запускай программу, числа из текстового документа Input копируются в Output
#include <iostream>
#include <cmath>
#include <locale.h>
using namespace std;
int main(int argc, char **argv)
{
setlocale(0, "Russian");
int a, b, c;
double p, res;
cout << "Введите длины сторон треугольника:"<<endl;
cin >> a >> b >> c;
if (a + b > c && a + c > b && b + c > a) {
p = (a + b + c) / 2.0;
res = sqrt(p * (p - a) * (p - b) * (p - c));
cout << "Площадь треугольника: "<< res <<endl;
}
else
cout << "Невозможно вычислить площадь!" <<endl;
return 0;
}
c:text;
begin
assign(c, 'Input.txt');
reset(c);
read(c,a,b);
close(c);
assign(c, 'Output.txt');
rewrite(c);
writeln(c,a,' ',b);
close(c);
end.
P.S. в файле Input.txt введены 2 числа через пробел, эти же числа копируются в Output.txt, для проверки программы, создавай папку и 2 файла Input.txt и Output.txt, далее копируй текст программы в паскаль и сохраняй программу в ту папку где 2 файла в формате паскаля (*.pas), и запускай программу, числа из текстового документа Input копируются в Output