Написать программу проверки наличия в исходном файле чисел от 18 до 27 - Turbo Pascal
Формулировка задачи:
Написать программу проверки наличия в исходном файле чисел от 18 до 27
Решение задачи: «Написать программу проверки наличия в исходном файле чисел от 18 до 27»
textual
Листинг программы
assign(f,'data.dat');
reset(f); g:=True;
while not eof(f) and g do begin
read(f,x);
if (x>=18) and (x<=27) then g:=False;
end;
if g then WriteLn('Искомых чисел нет')
else WriteLn('Хотя бы одно искомое число есть');
close(f);