Регистрация
efimovap17
03.11.2021 20:48
Информатика
Есть ответ 👍

Паскаль. вывести на экран все простые числа до k. число k вводится с клавиатуры. заранее .

156
218
Посмотреть ответы 2

Ответы на вопрос:

Есенин6261
Есенин6261
4,6(16 оценок)
Var a,flag: array[1..10000]of integer; i,n,k: integer; begin readln(k); for i: =1 to k do a[i]: =i; for i: =2 to k do if flag[i]=0 then begin write(a[i],' '); for n: =i+1 to k do if n mod i = 0then flag[n]: =1; end; end.
miran3
miran3
4,4(79 оценок)

сори низнаю

Объяснение:

Популярно: Информатика