Program qq;
var a:array[1..n] of integer;
i,k,s,SA:integer;
begin
for i:=1 to N do readln(A[i]);
k:=0; SA:=0; s:=0;
for i:=1 to N do
If (A[i]mod2=0) and (A[i]mod3<>0) then begin
k:=k+1;
s:=s+A[i];
end;
SA:=s/k;
writeln(k, s, sa);
<span>end.</span>
Вариант III.
В F можно попасть непосредственно из А или из Е.
Путь А-Е имеет длину 5. Осталось найти путь, если он есть, из А в Е с длиной не более 5-1-1=3. Почему столько? одна единица - это путь E-F, а вторая - это чтобы путь был короче A-F=5.
Как попасть в Е? Можно из А (длина 5 и это много) или D (длина 1).
Поищем вариант A-D диной не более 3-1=2. И он есть, и именно 2.
Поэтому кратчайший путь - это A-D-E-F с длиной 2+1+1=4
Вариант IV.
В F ведут пути из B, C, D ,Е. Это много. Посмотрим тогда куда можно попасть из А.
А-С длина 2, A-D длина 1.
D-F имеет длину 4 и путь A-F длины 4+1=5 мы уже нашли. Нет ли короче, хотя бы 4?
Вернемся к F. Чтобы получить путь не больше 4, из F должен быть путь в D не более 3 или в С не более 2. Таких путей нет., следовательно кратчайший путь A-D-F длины 1+4=5
#include <iostream>
using namespace std;
int main()
{
unsigned long long int n;
cin>>n;
for(unsigned long long int i=2; i<=n/2; ++i){
if (n%i==0) {cout<<"FALSE"; return 0;}
}
cout<<"TRUE";
return 0;
}
<u>PascalABC.NET 3.3.5, сборка 1659 от 09.04.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
var (s,p):=(0,1);
for var i:=1 to 6 do (s,p):=(s+i,p*i);
Writeln($'1: S={s}, П={p}');
Writeln('s=',SeqGen(ReadInteger('2: k='),1,i->i+2).Sum);
Write('3: '); Range(5,55,2).Println;
var (n,m):=ReadInteger2('4: Введите n,m:');
Writeln('П=',n.To(m).Aggregate(BigInteger(1),(u,v)->u*v));
Writeln('5: S=',10.To(15).Sum)
end.
Пусть основание равно х.
Тогда 3х+0=24 ⇒ х=24/3=8.
Система счисление - восьмеричная.