Текстовые: leto.doc dog.txt cat.jpg music.txt otvet.txt
Графические: aaa.bpm mama.jpg cat.jpg game.bpm
Программы: boy.exe box.exe
Program n_6;
const
n=10;
var
m:array[1..n] of integer;
i,x,y,z:integer;
procedure nod(a,b:integer; var c:integer);
begin
while a<>b do
if a>b then a:=a-b else b:=b-a;
c:=a
end;
begin
Writeln('Введите 10 двухзначных целых чисел');
for i:=1 to n do Read(m[i]);
x:=m[1];
for i:=2 to n do begin y:=m[i]; nod(x,y,z); x:=z end;
Writeln('НОД=',x)
end.
PascalABC.NET 3.3.5, сборка 1640 от 17.03.2018
Внимание! Если программа не работает, обновите версию!
begin
ReadSeqIntegerWhile(t->t<>0).Where(t->(t mod 7=0) and (t mod 10=3)).Sum.Println
end.