Составить программу в паскале: вывести все простые числа в диапазоне от 1 до n, используя циклические конструкции.
irishkakrasa
3
10.03.2019 09:10
1
Другие вопросы по теме Информатика
blackfox30
02.11.2020 01:04
abdulaevamesed
02.11.2020 01:03
froxxxy
02.11.2020 00:14
79366
02.11.2020 00:09
Марго215646
01.11.2020 23:58
Khayalnuriev2005
01.11.2020 23:57
kuznecovamargo
18.01.2021 22:23
masha90876
18.01.2021 22:17
Харли505
08.06.2019 14:20
Oleg12875
08.06.2019 14:20
Популярные вопросы
- Вставить в предложения much/many....
1 - Таблица по рассказу детство Тёмы поступки мотивы и ощущения...
3 - Дополни условие вопросом и реши задачу....
2 - Шерту,үйрену,ойнау,байлау,күмбірлеу,күркіреу деген сөздеріне сөйлем құрау...
3 - 1.запиши цифрами Радом со словом колечестве букв и звуков. Гразнуля ударит...
1 - 5.2. Науковці називають фізичним тілом Б лише предмети неживої природи;...
3 - Вычисли угол 1 если угол 4 градусов 23 градусов...
1 - Даны точка O и треугольник ABC. Взяв точку O за центр и за коэффициент...
3 - Скласти п ять речень з цими словами...
1 - 3 3/14 умножить на НАДО РЕШЫТЬ И РОСПИСАТЬ ПРИМЕР!!...
2
Program n1;
Uses CRT;
VAR n,i,k,j: integer;
begin
clrscr;
writeln('vvedite n');
Readln(n);
Writeln('Prostye chisla');
writeln;
For i:=3 to n do
begin
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;
readln
end.