Задание:
Составить программу в ПАСКАЛЕ: Вывести все ПРОСТЫЕ числа в диапазоне от 1 до N, используя циклическиеконструкции.
Решение:
Program n1; Uses CRT; VAR n,i,k,j: integer; beginclrscr; writeln ('vvedite n'); Readln (n); Writeln ('Prostye chisla'); writeln; For i: =3 to n dobegin For j: =2 to i-1 do If i mod j=0 then k: =k+1; If k=0 then writeln (i); k: =0; end; readlnend.
Знаете другой ответ?