Function IsPrime(n:longint):boolean;
var
found:boolean;
p:longint;
begin
if n<4 then IsPrime:=True
else begin
found:=(n mod 2=0);
p:=3;
while (not found) and (sqr(p)<=n) do
begin found:=(n mod p=0); p+=2 end;
IsPrime:=not found
end
end;
var
a,b,i:longint;
begin
Write('Введите начало и конец интервала: ');
Readln(a,b);
for i:=a to b do
if IsPrime(i) then Write(i,' ');
Writeln
end.
Можно во так
Россия
Москва,Санкт-Петербург,Новосибирск
И потом от каждого города 2 пригорода(в Интранете найди)
Так как одна цифра восьмеричного числа соответствует трём цифрам двоичного числа, то искомое восьмеричное число в двоичной системе счисления имеет вид: 001 000 000 011 111 111(2) = 100377(8)
Var i,n:Integer;
A:Array[1..1000] of Real;
sum,srednee,max,min:Real;
Begin
Read(n);
for i:=1 to n do
Read(A[i]);
for i:=1 to n do
sum:=sum+A[i];
srednee:=sum/n;
max:=A[1];
min:=A[1];
for i:=1 to n do
begin
if (A[i]>max) then max:=A[i];
if (A[i]<min) then min:=A[i];
end;
Writeln('Srednee = ',srednee:0:2,' Min = ',min:0:2,' Max = ',max:0:2);
end.
Ответ:
program Calc;
var
i, n, m: Integer;
s: Double;
begin
Write ('Количество членов ряда = ');
ReadLn (m);
s := 0.5;
n := 1;
for i := 2 to m do begin
s := s + n / (i * 2);
n := -n;
end;
WriteLn ('S = ', s :20 :20);
ReadLn;
end.