Архивировано

Эта тема находится в архиве и закрыта для публикации сообщений.

DoDgY

Turbo pascal

Рекомендованные сообщения

народ помогите мне вывести простые числа от N1 до N2 используя:

1 While

2 repeat until

3 for

Поделиться сообщением


Ссылка на сообщение
Поделиться на других сайтах

var
a: array [n1..n2] of integer;
b: array of integer;
i, j, с: integer;
..........................
for i:=2 to n2 do
for j:=i to n2 do
begin
c:=i*j;
if (c>=n1) and (c<=n2) then a[c]:=0;
end;

j:=0

for i:=n1 to n2 do
if a[i]<>0 then
begin
inc (j);
b[j]:=a[i]
end;

 

написал по-бырому на работе. может есть ошибки. но смысл такой :blink:

Поделиться сообщением


Ссылка на сообщение
Поделиться на других сайтах

огромное тебе спасибо!!А то мне надо завтра уже его сдавать!

:crazy:

 

+1. Правила раздела надо читать! Для подобных вопросов существует отдельная тема!

Поделиться сообщением


Ссылка на сообщение
Поделиться на других сайтах
Гость
Эта тема закрыта для публикации сообщений.