Вывести из файла все числа, кратных 3 и 9 - Pascal ABC
Формулировка задачи:
Записать в типизированный файл N вещественных чисел. Вывести из файла все числа,кратных 3 и 9.
Как это сделать7
Решение задачи: «Вывести из файла все числа, кратных 3 и 9»
textual
Листинг программы
reset(f); while not eof(f) do begin read(f,x); if (x mod 3=0) and (x mod 9=0) then write(x,' '); end; close(f);