Question

Помогите срочно даю 50 баллов

Answer 1

1)var
i, j, n : integer;
flag : boolean;
begin
write('n = ');
read(n);
for i := 2 to n do begin
flag := true;
for j := 2 to i-1 do
if (i mod j = 0) then begin
flag:=false;
break;
end;
if flag = true then write(i, ' ');
end;
end.
2)function gcd(a, b: longint): longint;
// Нахождение НОД
var
i: longint;
begin
while b <> 0 do
begin
a := a mod b;
i := b; b := a; a := i
end;
gcd := a
end;

var
a, b: longint;

begin
Write('Введите два натуральных числа: '); Readln(a, b);
Writeln('НОД(', a, ',', b, ')=', gcd(a, b))
end.