Страница 1 из 1
Помогите ребята плз! Очень прошу, а то двоечку поставят
Добавлено: 10 дек 2007, 19:09
Kyle
У меня вот такая задача: написать программу, которая выводит все 3-х значные
простые числа (простые числа - это числа которые делятся на себя и на 1)! Задача
очень простая, но я вообще не могу понять Паскаль.
Re: Помогите ребята плз! Очень прошу, а то двоечку поставят
Добавлено: 10 дек 2007, 21:02
somewhere
Ищите в этом же разделе, такая задача уже была
Re: Помогите ребята плз! Очень прошу, а то двоечку поставят
Добавлено: 10 дек 2007, 21:46
Kyle
да чтобы найти ёё, мне денек понадобиться (((
Re: Помогите ребята плз! Очень прошу, а то двоечку поставят
Добавлено: 10 дек 2007, 22:22
Serge_Bliznykov
Код: Выделить всё
var
i : integer;
function IsProstoe(N: integer): boolean;
var
i: integer;
begin
IsProstoe := true;
if abs(N) < 3 then
exit;
for i := 2 to abs(N) - 1 do
if abs(N) mod i = 0 then
begin
IsProstoe := false;
exit;
end;
end;
begin
for i:=100 to 999 do
if IsProstoe(i) then WriteLn(i:3);
end.
Re: Помогите ребята плз! Очень прошу, а то двоечку поставят
Добавлено: 10 дек 2007, 22:24
Serge_Bliznykov
забыл добавить - функция function IsProstoe(N: integer): boolean;
копирайт -(c) Jokerjar
Re: Помогите ребята плз! Очень прошу, а то двоечку поставят
Добавлено: 11 дек 2007, 10:16
BBB
Здесь обсуждался алгоритм определения, является ли число простым. Ну а то, что числа нужны трехзнчные, то, как написал
Serge_Bliznykov, надо перебирать числа от 100 до 999 включительно.
Re: Помогите ребята плз! Очень прошу, а то двоечку поставят
Добавлено: 11 дек 2007, 22:10
Kyle
Ооо...Спасибо ребята))) Реально помогло. Буду вас друзьям советовать) В частности спасибо тебе, Serge_Bliznykov, ))