Program pos;
var
c, n: integer;
begin
c := 0;
while (True) do
begin
readln(n);
if n = 0 then
break
else
if (n mod 2 = 1) and (n >= 1) and (n <= 9) then
c := c + 1;
end;
writeln('количество: ', c);
end.
(1) дано 17
(цикл)
17 * 2 + 31 = 65
65 * 2 + 31 = 161
161 * 2 + 31 = 353
(кц)
(5) ответ 353
Прости пожалуйста , но ты хотя бы фоткай полностью
Сначала посчитаем количество слов длины 13. Так как эти слова составлены лишь из 2 букв, то количество слов равно 2^13=8192
Теперь посчитаем количество палиндромов.
В палиндроме длины 13 достаточно знать первые 7 букв, чтобы восстановить оставшиеся 6 букв. Это значит, что всего палиндромов 2^7=128
Количество слов, не являющихся палиндромами, равно 8192-128=8064
Program abc;
var
n, i: integer;
s: real;
begin
write('Введите n: ');
readln(n);
for i := 1 to n do
s := s + 1 / i;
write('s= ', s);
end.