1.Напишите программу, которая выводит ** экран все простые числа в диапазоне от 1 до...

Question

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

Answer 1

Var i, j, n : integer;flag : boolean;beginwrite('n = ');read(n);for i := 2 to n do beginflag := true;for j := 2 to i-1 doif (i mod j = 0) then beginflag:=false;break;end;if flag = true then write(i, ' ');end;

Comments

это для первого