Задать вопрос
9 октября, 16:58

Поясните каждую строчку 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.

+5
Ответы (1)
  1. 9 октября, 17:09
    0
    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. - конец программы
Знаете ответ на вопрос?
Не уверены в ответе?
Правильный ответ на вопрос 👍 «Поясните каждую строчку 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 ...» по предмету 📗 Информатика. Развернутая система поиска нашего сайта обязательно приведёт вас к нужной информации. Как вариант - оцените ответы на похожие вопросы. Но если вдруг и это не помогло - задавайте свой вопрос знающим оппонентам, которые быстро дадут на него ответ!
Искать готовые ответы