Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

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

Купить рекламу на форуме - 42 тыс руб за месяц

Закрытая тема
Ваша тема закрыта, почему это могло произойти? Возможно,
Нет наработок или кода, если нужно готовое решение - создайте тему в разделе Фриланс и оплатите работу.
Название темы включает слова - "Помогите", "Нужна помощь", "Срочно", "Пожалуйста".
Название темы слишком короткое или не отражает сути вашего вопроса.
Тема исчерпала себя, помните, один вопрос - одна тема
Прочитайте правила и заново правильно создайте тему.
 
Опции темы Поиск в этой теме
Старый 15.02.2011, 20:38   #11
Shift_sk
Форумчанин
 
Регистрация: 20.11.2010
Сообщений: 221
По умолчанию

все нах Я понел теперь...
www.bezperepl.at.ua
Код:
...
Shift_sk вне форума
Старый 15.02.2011, 20:42   #12
Shift_sk
Форумчанин
 
Регистрация: 20.11.2010
Сообщений: 221
По умолчанию

Код:
var i:integer;
f,f2:text;
begin
assign(f,'in.txt');
assign(f2,'out.txt');
reset(f);
rewrite(f2);
while not eof(f) do begin
read(f,i);
if trunc(sqrt(i))=sqrt(i) then writeln(f2,sqr(i));
end;
close(f);
close(f2);
end.
www.bezperepl.at.ua
Код:
...
Shift_sk вне форума
Закрытая тема


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Pascal ABC Veron_20 Паскаль, Turbo Pascal, PascalABC.NET 9 21.12.2010 22:36
Turbo Pascal or Pascal ABC Ikram Паскаль, Turbo Pascal, PascalABC.NET 0 27.04.2010 13:44
Pascal ABC ArcaN0id Помощь студентам 8 07.12.2009 15:24