Question

ПОМОГИТЕ ПОЖАЛУЙСТА ПОНЯТЬ ПРОГРАММУ. ЧТО ОБОЗНАЧАЕТ КАЖДАЯ ПЕРЕМЕННАЯ? И ПОДРОБНО ОПИШИТЕ ПОСЛЕДОВАТЕЛЬНОСТЬ ДЕЙСТВИЙ ( Например, задаем множество, далее задаем переменные и задаем им тип такой-то... и т.д) ПОЖАЛУЙСТАААААА type violla = set of 1..300; var i, j, k, n: integer; s, s1: violla; f: boolean; begin write('Введите n: '); readln(n); s := [];s1 := []; for i := 1 to n do begin f := true; k := round(sqrt(i)); for j := 2 to k do if i mod j = 0 then f := false; if f then s := s + [i] else s1 := s1 + [i]; end; write('Простые числа(только два делителя): '); for i := 1 to n do if i in s then write(i, ' '); writeln; write('Составные числа(более двух делителей): '); for i := 1 to n do if i in s1 then write(i, ' '); end.

Answer 1

Объяснения - в прилагаемом файле.