X^2+1*X^0=26
X^2=25
X=5
основание 5
1 заходишь в мой компьютер. Ярлык будет на рабочем столе, после ищешь папку Мои документы нажимаешь на нее правой кнопкой мыши, и нажимаешь свойство и там будет объем данных, вот пример. Удачи тебе
Var
s1,s2:string;
i,k:integer;
begin
readln(s1);
k:=length(s1)-1;
s2:='';
for i:=1 to k do
begin
s2:=s2+s1[i];
case s1[i] of
'.',',','!','?':
if s1[i+1]<>' ' then s2:=s2+' ';
end;
end;
s2:=s2+s1[k+1];
writeln(s2)
<span>end.</span>