Решить! что будет высвечиваться в клетке d3, если в неё введена формула: =если(а3< 1,"нет", если(не(а3> 1),15,"да" в клетку а3 введено положительное число 1?
Здесь нужно использовать вс типизированный файл и, соответственно, вторую файловую переменную (fr2). Сделать это можно так: while not eof(fr) and (kol=0) do begin read(fr, Marshrut); if (Marshrut.NK.N <> '11') then write(fr2,Marshrut) else begin inc(kol); y:=Marshrut; end; end; if not eof(fr) then begin read(fr, Marshrut); write(fr2,Marshrut); end; if (kol=1) then write(fr2,y); Дальше нужно просто переписать оставшиеся записи из первого файла во второй. Затем оба файла закрыть, первый файл удалить, а второй переименовать (т.е. назвать его так, как назывался первый файл).
Попробуйте ещё вот такой вариант: (здесь k1 и k2 - целые, а y - типа ) if (Marshrut.NK.N = '11') then begin writeln('... '); inc(kol); y:=Marshrut; k1:=FilePos(fr)-1; k2:=FilePos(fr); if not eof(fr) then begin read(fr, Marshrut); seek (fr, k1); write(fr, Marshrut); seek (fr, k2); write (fr, y); end;
def fun_int_stat(int_to_analyze, dig_in, dig_out):
def chek_input(dig_out, dig_in):
if dig_in in range(0, 10) and dig_out in range(0,10):
normal = True
else:
normal = False
return normal
int_to_analyze_list = list(str(int_to_analyze))
int_to_analyze_list = list(map(int, int_to_analyze_list))
run = chek_input(dig_out, dig_in)
if run:
if dig_in in int_to_analyze_list and dig_out not in int_to_analyze_list:
return True
else:
return False
else:
print('input error')
Код копировать не советую, сайт ломает табуляции