Опубликовано 12.06.2017 по предмету Информатика от Гость >> <<

ПОМОГИТЕ ПОЖАЛУЙСТА ПОНЯТЬ ПРОГРАММУ. ЧТО ОБОЗНАЧАЕТ КАЖДАЯ ПЕРЕМЕННАЯ? И ПОДРОБНО ОПИШИТЕ ПОСЛЕДОВАТЕЛЬНОСТЬ ДЕЙСТВИЙ ( Например, задаем множество, далее
задаем переменные и задаем им тип такой-то... и т.д) ПОЖАЛУЙСТАААААА
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.

Ответ оставил Гость

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