1)Текстовый файл можно сохранить когда вы его закрываете,нажали на крестик в окне программы или там есть специальная кнопка что-бы его сохранить,соглашаетесь и идете по своим делам
2)Создайте новый файл, для этого:
1)Выполните команду New из меню File.
2)Выберите тип файла – Graphic Editor File (Файл Графического Редактора).
3)Выберите из выпадающего списка расширение .gdf.
4)Нажмите кнопку ОК.
5)После этого откроется новое пустое окно Графического Редактора.
6)Для того, чтобы сохранить файл, выполните команду Save As из меню File.
3)Что-бы сохранить файл надо его доделать выйти нажав на крестик в окне программы и вам вылезет окошко "Сохранить этот файл" если да то выбираете куда его сохранять,Что-бы закрыть файл достаточно просто нажать на крестик в окне программы, ну а что-бы открыть файл надо просто навести на него стрелку и дважды кликнуть!
готово. PascalABC
Объяснение:
program tri_chisla;
var n1, n2, n3: real;
begin
WriteLn('Ввод трех чисел и расположение их в убывающем порядке с заменой значений.');
Write('Введите значения n1, n2 и n3 через пробел >>> ');
ReadLn(n1, n2, n3);
if n1 < n2 then Swap(n1, n2);
if n2 < n3 then Swap(n2, n3);
if n1 < n2 then Swap(n1, n2);
WriteLn('n1=',n1,' n2=',n2,' n3=',n3);
end.
program func_L;
var
l: real;
x, y, z: integer;
begin
repeat
WriteLn('Введите значения x, y и z');
Write('Условие: (x-y-z) должно быть больше 0 >>');
ReadLn(x, y, z);
until (x - y - z) > 0;
l := x * y * z - ((abs(x)+abs(y)+abs(z))/(2 * sqrt(x - y - z)));
WriteLn('L = ', l);
end.
program chislo_a;
var
a: integer;
begin
Write('Введите число a >> ');
ReadLn(a);
if a >= 0 then WriteLn('Больше или равно нулю')
else WriteLn('Меньше нуля');
end.