Ориентированный граф (кратко орграф) — (мульти) граф, рёбрам которого присвоено направление. Направленные рёбра именуются также дугами, а в некоторых источниках и просто рёбрами.
Vari, a: longint;beginread(a);i := 1;while (a mod 10 <> 0) doinc(i);writeln('Чисел в последовательности: ', i);end.
Var
n, a, b, i, j: integer;
ar: array[1..10000]of integer;
begin
read(n, a, b);
ar[1] := a;
ar[2] := b;
for i := 3 to n do
begin
for j := 1 to i - 1 do
begin
ar[i] := ar[i] + ar[j];
end;
ar[i] := ar[i] + i;
end;
for i := n downto 1 do write(ar[i],' ');
end.
Для пары целых ненулевых чисел (a,b) существует соотношение
НОК(a,b)*НОД(a,b)=a*b
// PascalABC.NET 3.1, сборка 1213 от 04.04.2016
function gcd(a,b:integer):integer;
// НОД
begin
while b<>0 do begin a:=a mod b; Swap(a,b) end;
Result:=a
end;
function lcm(a,b:integer):=(a*b) div gcd(a,b); //НОК
begin
var a:=36;
var b:=54;
var c:=18;
var d:=15;
Writeln('НОК(',a,',',b,',',c,',',d,')=',
lcm(lcm(lcm(a,b),c),d))
end.
<u><em>Тестовое решение:</em></u>
НОК(36,54,18,15)=540