Простые числа - это натуральные числа, которые делятся без остатка только на себя и на единицу: 2, 3, 5, 7, 11...

1) Разработайте программу, которая вводит число К и проверяет, является ли оно простым.

2) Разработайте программу, которая вводит натуральные числа А и В и выводит все заключённые между ними простые числа.

3) Разработайте программу, которая вводит с клавиатуры число К и выводит первые К простых чисел.

Спасибо

1)var k,i,n:integer;beginwrite('k = '); readln(k);n:=0;for i:=2 to round(sqrt(k)) do  if k mod i= 0 then n:=n+1;if n=0 then writeln(k,' - простое число')else writeln(k,' - составное число');end.Пример:k = 2323 - простое число2)var a,b,i:integer;function prost(n:integer):boolean;var j,m:integer;beginm:=0;for j:=2 to trunc(sqrt(n)) do if n mod j = 0 then inc(m);prost:=m=0;end;beginreadln(a,b);writeln('Простые числа:');for i:=a to b do if prost(i) then write(i,' ');end.Пример:10 30Простые числа:11 13 17 19 23 293)var k,i,n:integer;function prost(n:integer):boolean;var j,m:integer;beginm:=0;for j:=2 to trunc(sqrt(n)) do if n mod j = 0 then inc(m);prost:=m=0;end;beginreadln(k);i:=2; n:=0;writeln('Простые числа:');while n<k do begin if prost(i) then begin write(i,' '); n:=n+1; end; i:=i+1; end;end.Пример:10Простые числа:2 3 5 7 11 13 17 19 23 29