Составить программку на Паскале поиска и вывода всех обычных чисел от
Составить программу на Паскале поиска и вывода всех обычных чисел от 2 до 100.
Проверкой каждого числа из этого промежутка на простоту.
При этом НЕ использовать решето Эратосфена.
И НЕ это, но что-то схожее)):
for i:=1 to n do
begin
j:=2;
lim:=round(sqrt(i));
while (i mod j lt;gt; 0) and (j lt;= lim) do inc( j );
if (j gt; lim) then write( i,' ' );
end;
1 ответ
Валерка Мгерьян
Var i, j, z:integer;BeginFor i:=2 to 100 do Begin Z:=0; For j:=2 to i div 2 do If (i mod j=0) and (i<>2) then begin z:=1;break; end; If z<>1 then writeln(i); End; Readln() ;End.
Тимур Обезьянин
??
Тамара Гензберг
Программка для turbo pascal
Кира Бесова
А моя не подходит?)
Ярослава Толока
Подходит)
, оставишь ответ?
Похожие вопросы
-
Вопросы ответы
Новое
NEW
Статьи
Информатика
Статьи
Последние вопросы
Рассматривая литературный язык как сложное взаимодействие книжного языка и разговорного,В.И.Чернышёв горячо
Разные вопросы.
Арабы входят в __________________ групп народов. Местом расселения арабов с незапамятных
Разные вопросы.
Грузовой автомобиль марки краз за одну поездку может доставить 7.500 кирпичей
Математика.
Определить предложения какие они по цели высказывания и по интонации
Русский язык.
"Три толстяка" Называли эту площадь Площадью Звезды последующей причине.
Русский язык.
на одной грядке коротышки посадили 3 ряда морковок по 8 штук
Разные вопросы.
эссе на тему какое образование дается в каждой семье
Қазақ тiлi.
Put the verb in brackets into the Present Indefinite.
1The Volga ,
Английский язык.
Сколько стоит коктейль молочный? Точную цену надо?
Математика.
Составить рассказ Из чего складывался культ монарха помазанника Божьего?
История.
Облако тегов