Var S:string;
c:char;
i,k,N:integer;
begin
Readln(S);
Readln(c);
N:=length(S);
For i:=N downto 1 do
If S[i]:='и' then
begin
k:=i;
break;
end;
For i:=N+1 to downto k do
S[i]:=S[i-1];
S[k]:=c;
Writeln(S);
end.
64 цвета => объём, который занимает 1 точка изображения в памяти, равен 6 бит (2^6 = 64)
512*64*6 = 2^7*2^6*2*3 = 2^14*3 (объём в битах)
1 Кбайт = 2^13 бит
2^14*3 / 2^13 = 2*3 = 6 Кбайт
1.
begin
var a,b:real;
read (a,b);
writeln ('Периметр = ',(a+b)*2,' Площадь = ',a*b);
end.
<em>1.Информация - это сведения о чем либо. О предметах, событиях, явлениях и процессах окружающего нас мира.</em>
<em>Книги,интернет,телевизор, школа.</em>
<em>2. Графическая, звуковая, текстовая, числовая.</em>
<em>3. Объективность информации, достоверность информации, полнота информации, точность информации, актуальность информации, полезность (ценность) информации.</em>