Информатика, опубликовано 2018-08-22 22:23:03 by Гость
Вывести на экран все простые числа в диапазоне от A до В.
Ответ оставил Гость
program tmp;uses crt;var m,i:longint; function simple(n:longint):boolean;var i:longint;beginsimple:=true;for i:=2 to round(sqrt(n)) do if n mod i=0 thenbeginsimple:=false;break;end;end; beginclrscr;write(enter n: ); readln(n);for i:=2 to n do if simple(i) then write(i, );readkey;end.
Не нашли ответа?
Если вы не нашли ответа на свой вопрос, или сомневаетесь в его правильности, то можете воспользоваться формой ниже и уточнить решение. Или воспользуйтесь формой поиска и найдите похожие ответы по предмету Информатика.