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