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
1) program n_1; var a:array[1..10] of integer; i, n, k, s:integer; begin writeln('Введите кол-во элементов'); readln(n); k:=0; for i:=1 to n do begin a[i]:=random(20)+10; writeln(a[i],' '); if (i mod 2=0) then s:=s+a[i]; If (i mod 2<>0) then k:=k+1; end; writeln('Сумма=',s); writeln('Кол-во нечётных элементов=',k); end. 2) program kol_vo_elementov; var a:array[1..10] of integer; i, n, k, s:integer; begin writeln('Введите кол-во элементов'); readln(n); k:=0; for i:=1 to n do begin a[i]:=random(9)+1; writeln(a[i],' '); if (i mod 2=0) then k:=k+1; end; writeln('Кол-во чётных элементов=',k); end.
