Форум программистов
 
О проблемах с регистрацией пишите сюда - alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите активизацию e-mail, а тут можно восстановить пароль.

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль
Повторная активизация e-mail


Ответ
 
Опции темы
Старый 20.05.2010, 00:29   #1
loloverg
Пользователь
 
Регистрация: 16.05.2010
Сообщений: 16
По умолчанию Записать в файл g все компоненты файла f, которые являются полными квадратами.

Помогите решить буду очень благодарен.
Задание 1. Дано файл f, компоненты которого являются натуральные. Записать в файл g все компоненты файла f, которые являются полными квадратами.
loloverg вне форума Ответить с цитированием
Старый 20.05.2010, 03:36   #2
DoDge_VipeR
Форумчанин
 
Аватар для DoDge_VipeR
 
Регистрация: 30.04.2010
Сообщений: 317
По умолчанию

Код:
assign(f,'1.inp');
assign(g,'1.out');
reset(f);
rewrite(g);
while not eof(f) do begin
read(f,a);
if frac(sqrt(a))=0 then write(g,a);
end;
close(f);
close(g);
icq:627719[сто сорок четыре] - помогу с Pascal & Delphi!
DoDge_VipeR вне форума Ответить с цитированием
Ответ
Купить рекламу на форуме 20000 рублей в месяц

Опции темы


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Как все edit собрать в переменную и записать в файл f1xed Помощь студентам 9 07.02.2010 23:18
Выбрать и напечатать элементы, которые являются листами дерева sergogo Помощь студентам 0 31.10.2009 22:55
Переписать в файл Т2 все компоненты файла Т1 с заменой в них символа «0» на символ "1" АполинАрия Помощь студентам 2 31.05.2009 22:45
Записать в файл g все парные числа файла f Lemo Помощь студентам 3 19.10.2008 20:27


Проекты отопления, пеллетные котлы, бойлеры, радиаторы
интернет магазин respective.ru
Пеллетный котёл Emtas
котлы EMTAS