Это если не ошибаюсь 1*2*3*4*5*6*7*8*9*10*11*12*13*14*15*16*17*18*19*20*21=51090942171709440000
//Автора кода в средневековье бы уничтожила инквизиция
//Pascal ABC.NET v3.1 сборка 1219
Program Stroka;
var S,S1 : string ;
p,k : integer ;
begin
writeln ('vvedite s');
readln(s);
p:=pos(' ', s);
while (p<>0) do
begin
S1 := copy(s,1,P);
writeln(S1);
delete (s,1,P);
P := Pos(' ',S);
inc(k);
end;
S[1]:= upcase(S[1]);
writeln(s);
writeln('Count of words=',k+1);
end.
Пример ввода:
Simple some test text
Пример вывода:
Simple
some
test
Text
Count of words=4
def f():
n = int(input())
numbers = [int(input()) for i in range(n)]
return sum(numbers)
<span> 2*16=65536 бит =(/8) 8192 байт = (/1024) 8 Кбайт</span>