Program p1;
const n=10;
var a: array [1..n] of integer;
s,i: integer;
begin
randomize;
for i:= 1 to n do
begin
a[i]:= random (73)-36
;write (a[i]:3);
end;
s:=0;
for i:=1 to n do
begin
if (a[i] mod 2<>0) and (a[i] mod 7=0) then
begin
s:=s+a[i];
end;
<span>end;
writeln;
writeln ('сумма=',s);
<span>end.
единственное не учел момент когда таких числе нет, можете дописать</span></span>
<span>Электронный документ - это набор данных, которые хранятся в памяти компьютера под определенным именем.
</span>
Var
a,b,i,j,c:integer;
begin
writeln('Vvedite a:');
readln(a);
writeln('Vvedite b:');
readln(b);
writeln('Stepeni chisla: ',a);
for i:=1 to b do
begin
c:=1;
for j:=1 to i do
c:=c*a;
writeln(c);
end;
end.
#Python 3.6.1
P = float(input())/100
print(P)
A = 10.0
S = A
K = 0
while S <= 200:
A*=1+P
S+=A
K+=1
print("S =",S)
print("K =",K)
Граф приведен во вложении. Кратчайший путь выделен красным цветом, его длина составляет 2+1+2=5