Вводы и выводы бывают нескольких "видов". Есть простой, к примеру, и с переводом строки. Они различаются тем, как мы будем читать. read(тут должна быть переменная, которую вы считываете). Тут считывается что-то, и затем можно дальше продолжать работать. А readln(тут должна быть переменная, которую вы считываете) уже после считывания переходит на следующую строку. Можно так же подключить файл. Это происходит посредством команд. assign(название текстовой переменной, затем через запятую тут должно быть название файла или путь к нему в кавычках). Затем надо сделать reset(название переменной, с которй связан был ввод); Это простые примеры. Теперь вывод. Тут в принципе, то же самое. write(переменная или текст в кавычках) просто выводит после места, где мы на вводе\выводе остановились, пишет то, что нужно. А есть writeln(). он делает то же самое, затем переходит на следующую строку. Обьясним в примерах. Различие write и writeln Есть два куска программы. a:=10; b:=20; write(a); write(b); И второй. a:=10; b:=20; writeln(a); writeln(b); Они различаются лишь четырьмя буквами, но вывод первой будет 1020 А второй 10 20 Что бы, кстати, при первом цифры не слипались, можно воспользоваться текстом. Изменим строчку write(a); на строчку write(a,' '); и тогда вывод будет таким 10 20 Файловый вывод подключается так же. Однако есть различие. Там надо использовать вместо reset - rewrite и все. Ну и естественно, не путаем две переменные ввода и вывода. Вот простые примеры
1. "Традиционный" вариант //PascalABC.Net 3.0, сборка 1052 function NOD(a, b: longint): longint; begin while a <> b do if a > b then a := a - b else b := b - a; NOD := a end;
var f: Text; tNOD: longint;
begin Assign(f, 'input.txt'); Reset(f); if not Eof(f) then Readln(f, tNOD); var n: longint := 1; while (not Eof(f)) and (n > 0) and (tNOD > 1) do begin Readln(f, n); if n <> 0 then tNOD := NOD(tNOD, n) end; Close(f); Assign(f, 'output.txt'); Rewrite(f); Writeln(f,tNOD); Close(f) end.
2. "Современный" вариант //PascalABC.Net 3.0, сборка 1052 function NOD(a, b: integer): integer; begin while a <> b do if a > b then a -= b else b -= a; Result := a end;
var tNOD: integer := 0; n: integer;
begin foreach var sn in Readlines('input.txt') do begin n := StrToInt(sn); if tNOD = 0 then tNOD := n else if n = 0 then break else tNOD := NOD(tNOD, n); end; WriteAllText('output.txt', IntToSTR(tNOD)); end.
Пример файла input.txt находится во вложении, контрольный результат 4096
На сколько я знаю вроде нет
Объяснение:
но это не точно