Напишите программу, которая выводит на экран все простые числа в диапазоне от 1 до числа, введенного с клавиатуры.
Напишите функцию, которая находит наибольший общий делитель для двух заданных чисел.

Вау как ты это сделал?!

;)

Не очень эффективно, но верно.

верно а у той тоже верно

1. program pr1;uses crt;var n,k,i,t:integer;beginclrscr;write('Введите целое число n=');readln (n);for i:=2 to n do begin t:=0; for k:=2 to n do if i mod k=0 then t:=t+1; if t=1 then write(i:3);end;readln;end.2.Program pr2;Var a, b: Integer;Function NOD(a, b: Integer): Integer;Var tmp, r: Integer;Begin If b > a Then Begin tmp := a; a := b; b := tmp; End; tmp := a; While tmp > 0 Do Begin Result := tmp; tmp := tmp - b; End;End;Begin Write('a = '); ReadLn(a); Write('b = '); ReadLn(b); Write('НОД: ', NOD(a, b)); ReadLn;End.