{Напишите программу, которая находит минимальное и максимальное
среди чётных положительных чисел, записанных в файле,
и выводит результат в другой файл.}
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.
Подробнее - на -
Объяснение:
num = int(input('Кол-во человек: '))
number = int(input('Какое число в считалке? '))
print('Значит, выбывает каждый', number, 'человек.')
mens_list = list(range(1, num + 1))
out = 0
for _ in range(num - 1):
print('Текущий круг людей', mens_list)
start_count = out % len(mens_list)
out = (start_count + number - 1) % len(mens_list)
print('Начало счёта с номера', mens_list[start_count])
print('Выбывает человек под номером', mens_list[out])
mens_list.remove(mens_list[out])
print()
print('Остался человек под номером', mens_list)
// Внимание! Если программа не работает, обновите версию!
begin
var s:=ReadlnString('Введите текст: ');
var c:=ReadlnChar('Введите искомый символ:');
s.ToWords.Where(w->(w.First=w.Last) and (c in w)).Println(', ');
end.
Примеры
Введите текст: мой дед носил наган и любил нарзан
Введите искомый символ: а
наган, нарзан
Введите текст: мой дед носил наган и любил нарзан
Введите искомый символ: и
и, любил