Ответ:
8
Объяснение:
смотри прикрепленные изображения:
перебрать все города,и смотреть по построенному графу,можно ли попасть во все остальные
и замечаем,что только из 8 можно попасть во все остальные города
заметить, что в город 8 нельзя никак попасть, а в остальные города из 8 можно, следовательно город 8 - будущая столица
Var n,p,k,i,j:integer; f:boolean;
begin
write('n = ');
readln(n);
p:=2;
for i:=2 to n do
begin
f:=false;
while not f do
begin
p:=p+1;
k:=0;
for j:=2 to round(sqrt(p)) do
if p mod j = 0 then k:=k+1;
f:=k=0;
end;
end;
writeln(p);
end.
Пример:
n = 25
97
Program nfff;
var abcd,S,a,b,c,d: integer;
Begin
WriteLn('найти сумму цифр четырехзначного числа');
Write('Введите abcd= ');ReadLn(abcd);
a:=abcd div 1000;
b:=abcd div 100;
b:=b mod 10;
c:=abcd mod 100;
c:=c div 10;
d:=abcd mod 10;
S:=a+b+c+d;
writeln('S=',S);
End.
2. 3. 8. Потому что например: boo?.TMP tmp это расширение без него никак
Ответ a, тип передачи указывается перед хостом