Предмет: Информатика,
автор: KorotenkoA
Дан интервал натуральных чисел от N до М. Определить все простые числа в этом интервале (Паскаль АВС)
Ответы
Автор ответа:
0
Program z1;
uses crt;
var n,m,kd,i,j,s: integer;
begin repeat write('n=');readln(n);
Write('m='); readln(m);
until (n<m);
for i:=n to m do
begin
kd:=0;
for j:=2to i div2do
if i mod j=0then inc(kd);
if kd=0then
begin
write(i,' ');inc(s);
end;
end;
writeln;
writeln('Всего ',s); end.
Похожие вопросы
Предмет: ОБЖ,
автор: Аноним
Предмет: Литература,
автор: ktoto17187
Предмет: Математика,
автор: Аноним
Предмет: Математика,
автор: naston