Function IsPrime(n:LongInt):Boolean; var p:LongInt; found:Boolean; begin found:= (n Mod 2 = 0); p:=3; while (not found) and (sqr(p)<=n) do begin found:=(n Mod p = 0); p:=p+2 end; IsPrime:=(not found) or (p = 2) end;
var i:integer; begin i:=101; WriteLn('Таблица простых трехзначных чисел'); repeat if IsPrime(i) then Write(i,' '); i:=i+2 until i>999; Writeln end.
Const n = 40; var s,i,ind,k1,k2: integer; mas: array[1..n] of integer; begin s := 0; for i:=1 to n do s := s+ mas[i]; Writeln ('сумма элементов массива: ',s);
s := 1; for i:=1 to n do s := s * mas[i]; Writeln ('произведение элементов массива: ',s);
s := 0; for i:=1 to n do s := s + mas[i]*mas[i]; Writeln ('сумма квадратов элементов массива: ',s);
s := 0; for i:=1 to 6 do s := s+ mas[i]; Writeln ('сумма первых 6 элементов массива: ',s);
ind:=0; repeat Writeln('Введите К1: '); read(k1); Writeln('Введите К2: '); read(k2); if (k2>k1) then ind := 1; until (ind=1);
s := 0; for i:=k1 to k2 do s := s+ mas[i]; Writeln ('сумма элементов массива с k1-го по k2-й: ',s);
Const PI=3.14;
begin
Var I,S,r:real;
Writeln('BBEDI RADIYS');
readln(r);
I:=2*PI*r;
S:=PI*r*r;
Writeln('I=',I,'S=',S);
End.