|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
22.10.2010, 12:09 | #1 |
Пользователь
Регистрация: 19.10.2010
Сообщений: 80
|
Почему не всегда output перезаписывает?
program Project1;
{$APPTYPE CONSOLE} uses SysUtils; var n,m,h,min,max: integer; t1,t2:textfile; begin assignfile(t1, 'input.txt'); assignfile(t2, 'output.txt'); reset(t1); readln(t1,n,m); if n>m then begin max:=n; min:=m; end else begin max:=m; min:=n; end; repeat begin max:=max mod min; min:=min mod max; end; until (min=0) or (max=0); rewrite(t2); if min=0 then writeln(t2, max) else writeln (t2, min); closefile(t1); closefile(t2); end. |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Console Output Redirection, PeekNamedPipe | d0vgan | Win Api | 7 | 05.09.2021 13:57 |
почему ADOTABLE.RECNO всегда равно -1 | betirsolt | БД в Delphi | 16 | 11.05.2010 23:16 |
Проблема с выводом в output.txt | zyava7 | Общие вопросы C/C++ | 6 | 08.01.2010 23:57 |
INSERT c OUTPUT | Veroonya | SQL, базы данных | 3 | 23.09.2009 11:38 |
Всегда позади и всегда впереди в одном приложении | Legat | Win Api | 4 | 27.10.2007 15:48 |