Вывести из файла все числа, кратных 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);
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д
