Найти все двузначные простые числа (простым называется натуральное число, большее 1, не...

Question

Найти все двузначные простые числа (простым называется натуральное число, большее 1, не имеющее других делителей, кроме единицы и самого себя) для Паскаля

Answer 1

Var A,i,k:byte;
Begin
Write('Простые двузначные числа:');
For A:= 10 to 99 do
    Begin
    k:=0;
    For i:= 2 to A div 2 do
        if A mod i = 0 then k:=k+1;
    if k = 0 then Write(' ',A)
    End
End.



Результат работы программы:

Простые двузначные числа: 11 13 17 19 23 29 31 37 41 43 47 53 59 61 67 71 73 79 83 89 97