Задание:
Ввести с клавиатуры натуральное число N, не превосходящее 10^9. Вывести все простыечисла из диапазона [1… N].
Решение:
VarN,i: integer; beginwriteln ('Введите число'); readln (N); for i: =1 to n dowrite (i,'); end.
Знаете другой ответ?
Ввести с клавиатуры натуральное число N, не превосходящее 10^9. Вывести все простыечисла из диапазона [1… N].
VarN,i: integer; beginwriteln ('Введите число'); readln (N); for i: =1 to n dowrite (i,'); end.
Знаете другой ответ?