запись дроби)) Help, перевод из десятичной в правильную Опции

[Катюха]

народ! help! )))) как перевести дробь из десятичной в правильную и чтоб была несократимой (чтобы числитель и знаменатель были простыми натуральными числами)

[klem4]

Я думаю, если вознимкют подобные вопросы, то одной строчкой не обойтись :D , Катюха, посмотри вот это : FAQ Файлы ну или вот тебе пример записи :

uses crt;
var
   x:integer; 
   f:Text;  // или например file of integer;

Begin
   clrscr;
   write('x='); readln(x);

   assign(f,'c:\Data.txt');
   rewrite(f);
   write(f,x);
   close(f);

   readln;

End.

зыы чот форум лагает... третий раз пытаюсь запостить)

Ты постил как раз во время объединения темы...
Volvo

Сообщение отредактировано: volvo - 13.07.2005 21:49