Написать программу на языке pascal: : вводятся целые числа до первого числа, которое меньше двух. определить, сколько простых чисел было введено. описание переменных: q - счетчик простых чисел; n - очередное введенное число. алгоритм решения : пока введенное число больше 1, проверять его на простоту по следующему алгоритму: если число делится на любой делитель от 2 до половины от себя, то оно не простое. если число так и не разделилось ни на один из перебранных делителей, то оно простое, следовательно, увеличиваем счетчик простых чисел.
gaasvaleria
3
06.06.2019 10:30
6
Другие вопросы по теме Информатика
Топирчик
20.04.2020 12:48
89528849556keyz
20.04.2020 12:47
misskamii
20.04.2020 12:47
VadimButs
11.06.2020 19:06
AvgustinaQueen
16.01.2021 14:33
Polhova1606
16.01.2021 14:33
sooooooos1
16.01.2021 14:31
85Angel85
02.07.2019 10:10
Популярные вопросы
- Алгоритм, позволяющий производить отсечение невыпуклого многоугольника...
1 - Двумерные элементы (точки, отрезки, окружности, дуги, кривые, контуры)...
3 - При вводе в систему каждого знака входного языка (команды, позиции, выбранного...
2 - Укажите последовательность действий при использовании альфа-канала для...
3 - Метрическое описание сегментов в виде координат точек хранится в файле...
1 - Отношения между элементами или их совокупностями являются _ типом данных...
3 - Изображение объекта, которое содержит точки, линии и поверхности, представляет...
3 - При диффузном отражении интенсивность отраженного света от расположения...
1 - В реальности цвет отдельных точек изображения определяется спектром первичных...
3 - Сначала упорядочивает грани по мере приближения к наблюдателю, а затем...
3
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.