Введите с клавиатуры число n и запишите в массив первые N простых чисел
177
ОТВЕТЫ
Var i, k, n, count, primes: word;begin
readln(n);
k := 1;
primes := 0;
while primes lt; n do begin
count := 0;
for i := 1 to k do begin
if k mod i = 0 then inc(count)
end;
if count = 2 then begin
write(k, );
inc(primes)
end;
inc(k)
end;
end.
readln(n);
k := 1;
primes := 0;
while primes lt; n do begin
count := 0;
for i := 1 to k do begin
if k mod i = 0 then inc(count)
end;
if count = 2 then begin
write(k, );
inc(primes)
end;
inc(k)
end;
end.
131
Отв. дан
Для написания вопросов и ответов необходимо зарегистрироваться на сайте
Другие вопросы в разделе - Информатика
Владимир
Напишите наименьшее ближайшее целое число для числа 28(6 система ...
2019-05-24 09:55:46
Naegasok
Дано число определить делится оно на три? (На языке ...
2019-05-24 09:54:56
Hunrad
Даны 2 числа а и б если они оба ...
2019-05-24 09:54:37
Leesov
Автомат получает на вход четырёхзначное десятичное число. По полученному ...
2019-05-24 09:52:49