//PascalABC.NET версия 3.2, сборка 1389
//Если программа не запускается, то обновите версию
begin
var a := SeqWhile(1, i -> i + 1, i -> i < 20);
Println(a);
Println(a.Where(x -> x mod 3 = 0).Average);
Writeln();
for var i := ReadInteger('a =') to ReadInteger('b =') do
writeln(i, ' ', i * i, ' ', i * i * i);
end.
Function IsPrime(x: integer): boolean;
var s, n: integer;
begin
Result := x > 1;
s := Trunc(Sqrt(x)) + 1;
n := 1;
while (n < s) and Result do begin
n := n + 1;
Result := Result and (x mod n > 0);
end;
end;
var x, s: integer;
begin
readln(x);
if IsPrime(x) then
writeln('prime')
else
writeln('composite');
<span>end.</span>
Заодно потренировался, вот тебе 1), а остальной нету.
<!doctype html><html><head></head><body><!-- меньше алертов --><script type="text/javascript">function stroka(x,y,z) { var str = prompt("BBegu"); var sumx; var sumy; var sumz; var x; var y; var z; sumx=0; sumy=0; sumz=0; if (str.indexOf("*") >= 0) { x = str.indexOf("*"); document.write("str[x"+x+"]="+str[x]+"<br>"); sumx=sumx+1; } else { document.write("HeTy x <br>"); } if (str.indexOf(":") >= 0) { y = str.indexOf(":"); document.write("str[y"+y+"]="+str[y]+"<br>"); sumy=sumy+1; } else { document.write("HeTy y <br>"); } if (str.indexOf(";") >= 0) { z = str.indexOf(";"); document.write("str[z"+z+"]="+str[z]+"<br>"); sumz=sumz+1; } else { document.write("HeTy z <br>"); }
for (i=0; i<=str.length-1; i++) { if (str.indexOf("*",i) > x) { document.write("str["+str.indexOf("*",i)+"]="+str[str.indexOf("*",i)]+"<br>"); sumx=sumx+1; x = str.indexOf("*",i); } if (str.indexOf("*",i) > y) { document.write("str["+str.indexOf(":",i)+"]="+str[str.indexOf(":",i)]+"<br>"); sumy=sumy+1; y = str.indexOf(":",i); } if (str.indexOf("*",i) > z) { document.write("str["+str.indexOf(";",i)+"]="+str[str.indexOf(";",i)]+"<br>"); sumz=sumz+1; z = str.indexOf(";",i); } } document.write('sumx='+sumx+"<br>"); document.write('sumy='+sumy+"<br>"); document.write('sumz='+sumz+"<br>");}stroka (2);alert(x);
</script><br /></body></html>
Это так называемые простые числа Ферма. Они имеют вид:
При n = 0, 1, 2, 3, 4 получаются числа:
2^1 + 1 = 3; 2^2 + 1 = 5; 2^4 + 1 = 17; 2^8 + 1 = 257; 2^16 + 1 = 65537.
И они действительно все простые. Но уже 6-ое число 2^32 + 1 - составное.
Больше всего эти числа известны тем, что правильные многоугольники с таким (и кратным ему) количеством сторон можно построить циркулем и линейкой.
Как строить правильный треугольник, квадрат и 6-угольник, учат в школе.
Некоторые (не все) учителя учат, как построить правильный 5-угольник.
Карл Фридрих Гаусс придумал, как построить правильный 17-угольник.
За это ему присвоили титул "Король математиков".
Ответ: 3) 17