Program n1;
Uses CRT;
Var s: string; a: char; i,k: integer;
begin
Writeln('Vvedite stroku');
readln(s);
Writeln('Vvedite simvol');
readln(a);
For i:=1 to length(s) do
if s[i]=a then k:=k+1;
Writeln('Simvol ',a,' vstrechaetsa v stroke ',k,' raz');
readln
<span>end.</span>
А) 17 + 83 = 100
36 + 64 = 100
77 + 33 = 100
б) 21 + 7 = 28
36 - 12 = 28
99 - 71 = 28
N=2^i.I=k*i
1) N=256,k=600, I-?
256=2^i => i=8 бит
I=600*8=4800 бит
2) N=64,k=1000, I-?
64=2^i => i=6 бит
I=1000*6=6000 бит
Var i :integer;
begin
for i := 30 downto 10 do
writeln(sqr(i));
readln;
end.