Var k,n:integer;
begin
n:=1;
k:=2;
while k<=45 do
begin
n:=n+1;
k:=k*2;
if n mod 7 = 0 then k:=k-23;
end;
writeln('n = ',n,' k = ',k);
end.
Результат:
n = 6 k = 64
Readln(n);
for i:=2 to n do
if n mod i=0 then
writeln(i);
break;
end.
Значение S есть просто знак числа x.
Это стандартная математическая функция.
В школе записывается как sign(x).
Блок схема будет в один блок - вернуть sign(x).
Процедура в MS Excel будет такой
=ЗНАК(B1)
про эту функцию можно прочитать тут
https://support.office.com/ru-ru/article/%D0%97%D0%9D%D0%90%D0%9A-%D1%84%D1%83%D0%BD%D0%BA%D1%86%D0%...
Мощность алфавита - это количество символов, из которых состоит алфавит.
26 букв латинского *2= 52 символа и 5 основных знаков арифм операций = 52+5=57 символов -ответ