Написать программу в паскале: опишите множество pr(1..20) и поместите в него все простые числа в диапозоне 1..20. в цикле организуйте ввод чисел в диапозоне 1..20 и определите, простые они или нет . выход из цикла - введеное значение , равное 99.

Var   pr: set of 1..20;   x: integer; begin   pr : = [1, 2, 3, 5, 7, 11, 13, 17, 19];   writeln('вводите целые числа от 1 до 20, выход по 99');   repeat       write('число ');       readln(x);       if x < 21 then           if x in pr then writeln('простое')           else writeln('не простое')   until x = 99 end. тестовое решение: вводите целые числа от 1 до 20, выход по 99 число 18 не простое число 3 простое число 15 не простое число 23 число 19 простое число 99

Var       k,fk, k20, count: integer; function f(x: integer): integer; begin       if x < 3 then               f : = 1       else f : = f(x - 1) + f(x - 2); end; begin       k20: =f(20);       writeln(k20);             count: =-1; {k=20 мы ж вроде должны вычесть}       for k : = 3 to 50 do begin               fk: =f(k);               if fk=k20 then count: =count+1;               write(fk,' ');       end;       writeln(count);       end. функция работает медленно потому что это рикурсия. функция создает последовательность числ фибоначи которые вообщ то не повторяются потому что последовательность возрастающая. повторения вообщем возможны изза того что integer это не безконечная последовательность, а кольцо, но дождаться результатов при таким образом построенной функции просто нереально

Число содержит единицу и 2048х2=4096 нулей. число содержит единицу и 2048 нулей. число содержит единицу и 8 нулей. при вычитании в первом числе надо будет "занять" единственную имеющуюся в старшем разряде единицу и вычесть единицу из девятого справа разряда, что даст в нем ноль, а в разрядах с 2048 по 9 образуются единицы. их количество составит 2048-8=2040. при сложении результата с числом добавится еще одна единица в старшем разряде и общее число единиц станет равно 2041. ответ: 2041 единица.