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>В этой системе счисления 8 цифр: 0, 1, 2, 3, 4, 5, 6, 7. Цифра 1, указанная в самом младшем разряде, означает, как и в десятичном числе, просто единицу. Та же цифра 1 в следующем разряде означает 8, в следующем – 64 и т. д. Число 100 (восьмеричное) есть не что иное, как 64 (десятичное). Чтобы перевести в двоичную систему, например, число 611 (восьмеричное), надо заменить каждую цифру эквивалентной ей двоичной триадой (тройкой цифр). </span>
Uses crt;
function f(a,b:real):real;
begin
f:=sqrt(a*a+b*b)
end;
var ab,ac,dc,bd,g,p:real;
begin
clrscr;
writeln('Введите длины строн');
write('ab=');readln(ab);
write('ac=');readln(ac);
write('dc=');readln(dc);
g:=f(ab,ac);
bd:=f(g,dc);
p:=ab+ac+dc+bd;
write('Периметр=',p:0:2);
readln
end.
8192 байт = 8192*8 бит
Память для одного пикселя = 8192*8/(32*128) = 16 бит
Количество цветов = 2^16 = 65536