Вводятся целые числа до первого числа, которое меньше двух. Определить, сколько простых чисел было введено.
плртпломм
1
20.02.2021 08:39
4
Другие вопросы по теме Информатика
School13kursk
20.10.2021 07:26
pdv20
30.01.2022 04:06
qwerty54321
30.01.2022 04:10
nikav92com
30.01.2022 04:16
edvinmanovskij
11.12.2020 00:13
Jlu4shiyFisik
11.12.2020 00:10
11122223
17.11.2019 21:03
Maks2801
17.11.2019 21:02
ЭммаУаилд
17.11.2019 20:57
Популярные вопросы
- Напишите сочинение на 50 слов про карманные деньги , с ответами на вопросы...
3 - Вставте пропущені слова в реченні. У__р. за прикладом свого вождя Холдвіга...
2 - 1.Як відбувалося становлення особистості історичного діяча? •Де і коли...
1 - Катруся у записаному числі 4921508 не переставляючи цифр закреслювати...
2 - Найти дифференциал функции:...
1 - решить ривняння, с полним ришение ...
2 - ABCD це прямокутник точка о точка перетину його діагоналей відомо що точки...
1 - Предприятие производит ликер с содержанием спирта 28%. Себестоимость убутылки...
2 - Довести такі твердження: 1. Із-будь якої нескінченної множини можна виділити...
1 - План на тему мій улюблений куточок...
2
var q,n,i,k,h:integer;
begin
readln(n);
h:=1;
while n>1 do
begin
k:=n div 2;
for i:=2 to k do
if n mod i=0 then h:=0;
q:=q+h;
h:=1;
readln(n);
end;
writeln('Простых чисел: ',q)
end.
Объяснение: