Регистрация
567н
15.06.2023 13:50
Информатика
Есть ответ 👍

Информатика задание 4 и 5 у меня сбой в программе

142
370
Посмотреть ответы 1

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

Есенин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.

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