Помогите с задачкой на файлы!, условие что-то не пойму... Опции

[Svechka]

"В заданном тексте определить целое число, состоящее из наибольшего количества цифр."

то есть получается у меня текстовый файл будет состоять из чисел типа real ? и среди них надо будет искать например чсла 500.0 , 456.0 ... а как тогда для них считать количество цифр? Я сначала сделала вообще без количества цифр, типа у целого числа неважно какое наибольшее количество, надо лишь найти максимальное.. вот:

 Program Z1;
uses crt;
var
f:text;
name:string[20];
a,max:real;
i,k:integer;
begin
clrscr;
writeln ('Enter file name ');
readln (name);
max:=0;
assign(f,name);
{$I-}reset(f) {$I+};
If IOResult<>0 then begin
writeln ('Error');halt;end;
while not eof(f) do begin
read (f,a);
if frac(a)=0 then begin k:=k+1;
for i:=1 to k do
if a>max then max:=a;
end;
writeln(max:4:2);
close(f);
readln;
end.

но по-моему так неграмотно..

или все-таки файл будет из чисел типа integer ?

подскажите, пожалуйста!

Сообщение отредактировано: volvo - 12.01.2007 1:15