Var a, b, c, i:integer;
s:string;
begin
read (s);
for i:=1 to length(s) do if s[i]=' ' then delete(s,i,1);
write (s);
<span>end.
</span>var a, b, c, i:integer;
s, k:string;
begin
read (s);
k:='kk';
for i:=1 to length(s) do if s[i]=' ' then insert(k,s,i+1);
write (s);
<span>end.
</span>
var a, b, c, i:integer;
s:string;
begin
read (s);
for i:=1 to length(s) do if s[i]=',' then a:=i;
write (a);
end.
Благодарность не помешает.
<span>(A\/B)/\(¬A\/B)=
=(А+B)*(</span>¬A+B)=
=A*¬A+A*B+¬A*B+B*B=
=A*B+¬A*B+B=
=B
1. Первый многоядерный процессор <em>для массового использования</em> (а не для встроенных систем) – POWER4 с двумя ядрами PowerPC (IBM, 2001).
2. Первый четырёхъядерный процессор – <em>серверный</em> Intel Xeon (2006)
3. Первый шестиядерный процессор для <em>настольных</em> компьютеров – Intel Core i7-980X Extreme Edition (2010)
4. Первый восьмиядерный процессор для <em>настольных</em> ПК – Haswell-E (2013)