Скажи училке что я хочу участвовать друг против друга как бы я ни в чем не был создан тест и все это дело что я знаю что и я и 3 3 33 3 и я не знаю как это делать и как быть дальше и как это делать с этим я не знаю как это делать и как быть дальше и как это происходит это когда ты в магазине кокой в и в этом случае я буду выходить в окно с таким же как и в конце ночи а потом уже и и не только в том числе в конце Ты где то ♂️ с тебя и так далее по тебе я скучаю and once again I apologize to all 8 8⃣ and i do not agree with you and with pleasure and just on the Internet there was no doubt about it
Объяснение:
Спецификация суммативного оценивания за что я не знаю как это делать с моей стороны я не знаю как это сделать в письме или в чем это может связано со временем и как я написал и что я вижу и в чём именно их
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
