Опубликовано 08.06.2017 по предмету Информатика от Гость >> <<

Сдезайте програмку очень нужно!!!!

Ответ оставил Гость

Решение в лоб :D, только желательно запускай прогу отдельно в папке.

Program out;
var fo:text;
begin
assign(fo,output.txt);
rewrite(fo);
Writeln(fo,Program AplusB;);
Writeln(fo,var A,B: Integer;);
Writeln(fo,begin);
Writeln(fo, Assign(input,input.txt););
Writeln(fo, Reset(input););
Writeln(fo, Assign(output,output.txt););
Writeln(fo, Read(A,B););
Writeln(fo, ReWrite(output););
Writeln(fo, WriteLn(A+B););
Writeln(fo, Close(input););
Writeln(fo, Close(output););
Writeln(fo,end.);
close(fo);
end.