1/8 кб = 1024 бита
1024 / 256 = 4 бита весит 1 символ
2^4 = 16 символов
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>
Program pask;
var
a,b,sum: integer;
begin
sum:=0;read(a,b); //ввод интервала [a;b]
write('Сумма нечетных чисел из интервала [',a,';',b,'] = ');
while a<=b dobegin if a mod 2 = 1 then sum:=sum+a; a:=a+1;end;
write(sum);
end.
Var
a,b,c:integer;
begin
readln(a,b,c);
if (a<b+c) and (b<a+c) and (c<a+b) then
writeln('Треугольник существует')
else
writeln('Треугольник не существует');
end.