Понять программу. что обозначает каждая переменная? и подробно опишите последовательность действий ( например, задаем множество, далее задаем переменные и задаем им тип такой- и т.д) 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.

Frampo228    1   10.07.2019 03:00    3