В Мбайт 1740,8
В Кбайт 1782579,25
Var s:string; i,k:integer;
Begin
readln(s);
i:=1;
while (s[i]<>'.')and(i<>length(s)) do
i:=i+1;
delete(s,1,i);
k:=0;
for i:=1 to length(s) do
if s[i]<>'0' then k:=1;
if k=0 then writeln('Число целое')
else writeln('Число дробное');
End.
Числа 1616 нет в задании.
Мой ответ тоже 3. Описанный автомат может выдать числа 1515 (787), 159 (963 или 690 или 781 или 872), 115 (923 или 832).
Два текстовых файла можешь копировать в PascalABC.NET оба рабочие. Первый с динамическими массивами под PascalABC.NET второй -статические массивы для FreePascal.