3 рубля, потому что он может назвать подмножества: "четные числа" и "нечетные числа"
Скажите каким будет следующие число в приведённой последовательности- 1,1,4,7,19,40,97,217,508,1159... (только плис,с объяснение
ccaa83
1,1,4,7,19,40,97,217,508,1159<span>,2683,6160,14209, 32689,75316,173383
Т.е. следующим числом будет </span><span>2683</span>
Var s:string; i:integer;
begin
writeln('Введите слово:');
readln(s);
for i:=1 to length(s) do write(s[i],' ');
<span>end.
Пример:
Введите слово:
primer
<span>p r i m e r
</span></span>