Поясните каждую строчку program odin; var i,n,k,j:integer; begin read(n); i:=1; for i:=2 to n do begin k:=0; for j:=2 to i-1 do if i mod j=0 then k:=1; if(k=0)and(n mod i=0)then writeln(i); end; end.

Вопрос школьника по предмету Информатика

Поясните каждую строчку program odin; var i,n,k,j:integer; begin read(n); i:=1; for i:=2 to n do begin k:=0; for j:=2 to i-1 do if i mod j=0 then k:=1; if(k=0)and(n mod i=0)then writeln(i); end; end.

Ответ учителя по предмету Информатика

program odin; — название программы

var i,n,k,j : integer; — введение переменных i,n,k,j типа integer (целое число)

begin — начало программы

i:=1; — присвоить переменной i значение 1

For i:=2 to n do — цикл в котором переменной i присваиваются значения от 2 до n ( i = 2, 3, 5 … n)

begin — начало цикла for

k:=0; — k присваивается 0

For j:=2 to i-1 do цикл в котором переменной j присваиваются значения от 2 до i-1

if i mod j = 0 then k:=1; — если остаток от деления переменной i yf переменную j равно 0, то присвоить переменной k значение 0

if (k=0) and (n mod i = 0) then writeln(i); — если переменная k имеет значение 0 и остаток от деления переменной n на переменную i равно 0, то вывести на экран значение переменной i

end; — конец цикла for

end. — конец программы