{Напишите программу, которая находит минимальное и максимальное среди чётных положительных чисел, записанных в файле, и выводит результат в другой файл.} var f:text; min, max,a :integer; find:boolean;{есть/нет числа удовлетворяющие условию} begin assign(f,'dan.txt'); reset(f); min:=0; max:=0; find:=false; while not eof(f) do begin read(f,a); if not find and (a>0) and (a mod 2=0) then begin min:=a; find:=true; end else if find and (a>0) and (a mod 2=0) and (min>a) then min:=a;
if (a>0) and (a mod 2=0) and (max<a) then max:=a; end; close(f); assign(f,'res.txt'); rewrite(f); if max=0 then writeln(f,'чётных положительных чисел нет') else writeln(f,'min среди чётных положительных чисел =',min, chr(13), 'max среди чётных положительных чисел нет',max); close(f); end.
1.Пройдите по следующему пути "Пуск -> Служебные - Windows -> Командная строка"
2.Нажмите сочетание клавиш «Win + R» и наберите команду cmd.
3.На компьютерах операционной системы Apple вызов командной строки выполняется с системной утилиты Terminal.
4.Запуск командной строки на различных сборках Linux систем может происходить по разному, но смысл везде одинаковый, нужно найти и запустить программу, которая называется консоль, командная строка или терминал.
среди чётных положительных чисел, записанных в файле,
и выводит результат в другой файл.}
var f:text;
min, max,a :integer;
find:boolean;{есть/нет числа удовлетворяющие условию}
begin
assign(f,'dan.txt'); reset(f);
min:=0; max:=0;
find:=false;
while not eof(f) do
begin
read(f,a);
if not find and (a>0) and (a mod 2=0) then
begin
min:=a; find:=true;
end
else
if find and (a>0) and (a mod 2=0) and (min>a) then
min:=a;
if (a>0) and (a mod 2=0) and (max<a) then
max:=a;
end;
close(f);
assign(f,'res.txt');
rewrite(f);
if max=0 then writeln(f,'чётных положительных чисел нет')
else
writeln(f,'min среди чётных положительных чисел =',min, chr(13),
'max среди чётных положительных чисел нет',max);
close(f);
end.
Объяснение:
Щоб запусти ти термінал або командну строку .
1.Пройдите по следующему пути "Пуск -> Служебные - Windows -> Командная строка"
2.Нажмите сочетание клавиш «Win + R» и наберите команду cmd.
3.На компьютерах операционной системы Apple вызов командной строки выполняется с системной утилиты Terminal.
4.Запуск командной строки на различных сборках Linux систем может происходить по разному, но смысл везде одинаковый, нужно найти и запустить программу, которая называется консоль, командная строка или терминал.