ТутРешу.Ру

Составить программу в ПАСКАЛЕ: Вывести все ПРОСТЫЕ числа в диапазоне…

Задание:

Составить программу в ПАСКАЛЕ: Вывести все ПРОСТЫЕ числа в диапазоне от 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.




Знаете другой ответ?

Отправить свой ответ