Вывести на экран все простые числа, не превосходящие заданное число М - Паскаль

[bibek13]

здравствуйте господа программисты!!!
Я прошу вашей помощи в последнем шансе получить зачёт по информатике.
нужно решить несколько задач.
Вот одна из них:
Вывести на экран все простые числа, не превосходящие заданное число М.
заранее спасибо)

[Zer0]

язык какой? или надо словесный алгоритм?

[bibek13]

Язык паскаль, а задачу я решила....пожалуйста другую проверьте
наименьшее общее кратное двух целых чисел находится по формуле НОК(А,B)=(A*B)/НОД(A,B), где НОД-наименьший общий делитель. написать программу, которая находит НОК заданных чисел.

вот, что у меня получилось.. пожалуйста исправите ошибки

{
НОК.pas}


program nok;
uses
  SysUtils;

var Ch1, Ch2,temp, Res: Integer;

procedure nok1(Num1, Num2: Integer; var Res: Integer);
var
  I, K: Integer;
begin
  if Num1*Num2 = 0 then Res:= Num1+Num2
  else
    begin
      K:= Num1*Num2;
      I:= 1;
      repeat
        I:= I+1;
        if (Num1 mod I = 0) and (Num2 mod I = 0) then
          begin
            Num1:= Trunc(Num1/I);
            Num2:= Trunc(Num2/I);
            K:= Trunc(K/I);
            I:= 1;
          end;
      until (Num1 <= I) or (Num2 <= I);
      Res:= K;
    end;
end;
begin
Res := 0;
temp := 0;
Write(' 1 = ');
Readln(Ch1);
Write(' 2 = ');
Readln(Ch2);

nok1(ch1, ch2, temp);

Writeln('результат= ', res);

Readln;
end.

[Zer0]

Во первых:

nok1(ch1, ch2, temp);

Writeln('результат= ', res);

процедуру вызываете с одной переменной, а выводите другую

Ну а во-вторых, НОД можно найти более оптимально:

var Ch1, Ch2, Res: Integer;


function NOD (a,b:integer):integer;
begin
while a<>b do
  if (a>b) then a:=a-b else b:=b-a;
NOD:=a;
end;

function nok(Num1, Num2: Integer):integer;
begin
  if Num1*Num2 = 0 then NOK:= Num1+Num2
  else
      NOK:= Num1*Num2/NOD(Num1,Num2);
end;

begin
Write(' 1 = ');
Readln(Ch1);
Write(' 2 = ');
Readln(Ch2);
Res:=nok(ch1, ch2);
Writeln('результат= ', res);
readln;
end.

[Serge_Bliznykov]

одна тема - один вопрос (и наоборот).

Вторая задача не имеет отношения к заявленной теме.

ЗАКРЫТО