есть программа, переводящая из десятичной в двоичную, но нужно что бы строка считывания брала данные из файла и записывала в файл
Uses
CRT;
Const
a: string= '01';
Var
i: longint;
s:string;
begin
write('введите число ');
readln(i);
s := '';
repeat
s := ((a[i mod 2 + 1]) + s);
i := i div 2;
until (i = 0);
write(s);
end.
|
|
|
|
Тут на сайте ты можешь найти как считывать данные из файла и записывать в файл:)
Нужна помощь? Сюда: vkontakte.ru/berestovskiy
|
|
|
Нужна помощь? Сюда: vkontakte.ru/berestovskiy
|
|
|
|
