Ответы на вопрос:
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.
Популярно: Информатика
-
MastruevaNasty24.01.2020 09:06
-
Alika1989107.09.2022 08:23
-
uosup8182123.07.2022 16:22
-
valeri091020027.04.2022 19:06
-
Хаурма709.05.2023 06:50
-
nastya11w22.03.2020 18:51
-
PatrickKKK14.06.2023 09:11
-
susystgr29.06.2023 13:30
-
kdfrolova04.03.2022 13:07
-
Parastaev18.01.2023 18:07