Напишите программу, которая выводит все простые числа в диапазоне от 2 до n ( n заранее неизвестно). входные данные входная строка содержит целое число n . выходные данные программа должна вывести все простые числа в диапазоне от 2 до n в одну строку, разделив их пробелами. примеры входные данные 20 выходные данные 2 3 5 7 11 13 17 19
Сменка
3
26.08.2019 11:20
9
Другие вопросы по теме Информатика
sacha0457
22.06.2019 06:00
kolomietslina
21.09.2019 07:20
Марцело
21.09.2019 07:20
Sinnysis
19.03.2021 20:37
DOCTORMOZG
19.03.2021 20:40
Vikysay10
19.03.2021 20:48
katya8787871
19.03.2021 20:59
gjgjggfasf
19.03.2021 20:59
вася783
19.03.2021 21:01
Популярные вопросы
- Өтінем көмек керек. Қазақ тілінен 3 тасырма СОРдың жауаптарын берем. КӨМЕКТЕСКЕНГЕ...
3 - Стороны треугольника 4, 4, 6. Найдите радиус нарисованной на нем окружности...
1 - . С ть вираз: (3y^2-10y+8)/(4y^2-36)∙(y-3)/(y-2)+(0,25-y)/(y+3)....
1 - Косвенная речьбиз 12*What time is Emily meeting us? asked my sister.My...
3 - НУЖНО НАПИСАТЬ СЮЖЕТНУЮ ТАБЛИЦУ ПО ПРОИЗВЕДЕНИЮ «ХОББИТ»...
2 - Только при нагревании вода вступает в реакцию с: Pt Cs Pb...
1 - Числівниками є всі слова в рядку А: четвертий, вісімнадцять, дев ятеро....
3 - 7. У якому рядку є речення з однорідними членами? а) Гине безславно Самсон...
2 - I. Задание. Запишите термин, соответствующий указанному определению. 1....
3 - Чи правильне твердження: «Przymiotnikiem możemy posłużyć się także, chcąc...
3
A,N,d:integer;
Begin
Write('N = ');ReadLn(N);
For N:= 2 to N do
Begin
d:=0;
A:=2;
Repeat
if N mod A = 0 then d:=d+1;
A:=A+1
Until A>Sqrt(N)+1;
if d = 0 then Write(N,' ')
End
End.