Pascal ABC

[((Прогер))]

Компонентами файла являются натуральные числа. Получить в файле с другим именем квадраты всех компонентов, являющихся полными квадратами.Помогите пожалуйста!!!!!

[mss]

Какой же ты "Прогер", если элементарную задачу решить не можешь самостоятельно ?)

[Shift_sk]

этоу него воображение зашкаливает)

[Shift_sk]

var i:real;
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(i)=i then writeln(f2,sqr(i));
end;
close(f);
close(f2);
end.

[mss]

> Shift_sk

И зачем тебе нужно было так облажаться ?)

[Shift_sk]

ха...незнаю..и в чем я облажался?

[Shift_sk]

в чем суть условия вообще?

[mss]

> в чем я облажался ?

А где в твоем "благотворительном коде" речь о "полном квадрате" ?)

> в чем суть условия вообще?

Ты у МЕНЯ спрашиваешь ?)
Это ты у автора спрашивай)

[Shift_sk]

автор в чем суть условия?

[mss]

> Shift_sk

Он же по-русски написал условия)

Во вх.файле есть , скажем, 2 числа - 19 и 25
Из них только 25 является полным квадратом (числа 5), след-но в вых.файл должно быть записано число 625, являющееся квадратом числа 25

А ты что понацарапал ?)
Не суетись перед паровозом)