Ответы на вопрос:
ответ:
{напишите программу, которая находит минимальное и максимальное
среди чётных положительных чисел, записанных в файле,
и выводит результат в другой файл.}
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
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.
подробнее - на -
объяснение:
Реши свою проблему, спроси otvet5GPT
-
Быстро
Мгновенный ответ на твой вопрос -
Точно
Бот обладает знаниями во всех сферах -
Бесплатно
Задай вопрос и получи ответ бесплатно
Популярно: Информатика
-
123456789084728.03.2023 01:14
-
897728814.04.2023 10:41
-
лауракот14.03.2020 10:21
-
sadzim24.12.2020 05:18
-
KindPioneer30.01.2021 08:55
-
Nice111111111111106.09.2021 21:15
-
Dead9418.06.2022 10:23
-
sasha22811122802.04.2021 02:09
-
nikitarin001.07.2020 00:06
-
vlldboom06.04.2023 21:57
Есть вопросы?
-
Как otvet5GPT работает?
otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса. -
Сколько это стоит?
Проект находиться на стадии тестирования и все услуги бесплатны. -
Могу ли я использовать otvet5GPT в школе?
Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое! -
В чем отличия от ChatGPT?
otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.