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

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

Question

Информатика

Калерия

6 августа, 15:17

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

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

+4

Ответы (1)

Знаете ответ на вопрос?

Галла · 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;