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

Question

Составить программу в ПАСКАЛЕ: Вывести все ПРОСТЫЕ числа в диапазоне от 1 до N, используя циклическиеконструкции.

Answer 1

33

piter77

05 марта 2023

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.

пользователи выбрали этот ответ лучшим

комментировать

в избранное ссылка отблагодарить

Email:
Пароль:
	забыли пароль?

Логин:
Email:
Пароль: