С чем пмочь нечего нет кртинка черноя
256 - мощность алфавита
а 8ая степень двойки - это количество БИТ на один символ
в 1 байте - 8 бит
т.е. на один символ требуется 8 / 8 = 1 Байт
если учесть, что 1 кБайт = 1024 байт, то
1,5 * 1024 = 1536
так мы переведем объем текста из кБайт в Байты
и вот весь объем текста делим на объем одного символа
1536 / 1 = 1536
В тексте 1536 символов
Var
s:string;
cnt, i,j:integer;
begin
Readln(s);
for i:= 1 to length(s) do
begin
if s[i] = 'a' then write('a');
write(s[i]);
if s[i] = 'z' then cnt:= cnt+1;
end;
Writeln;
Writeln('Кол-во "z" в слове: ', cnt);
for i:= 1 to length(s) do
if s[i] <> s[length(s)-i+1] then begin
Writeln('Это не палиндром');
halt;
end;
Writeln('Это палиндром');
end.
<u>Пример:</u>
abazaba
aabaazaabaa
Кол-во "z" в слове: 1
Это палиндром
Ответ:
program Geom;
program Test_nn;
{$APPTYPE CONSOLE}
{$R *.res}
uses
Math;
var
a: array of Extended;
n, i, c: Integer;
x: Extended;
begin
Write ('Размерность массива = ');
ReadLn (n);
SetLength (a, n);
Randomize;
for i := Low (a) to High (a) do begin
a [i] := (Random (2001) - 1000) / 1000;
Write (a [i] :7 :3);
end;
x := 1;
c := 1;
WriteLn;
for i := Low (a) to High (a) do begin
if a [i] > 0 then begin
Write (a [i] :7 :3);
x := x * a [i];
Inc (c);
end;
end;
WriteLn;
WriteLn ('Среднее геометрическое = ', Power (x, 1/c) :20 :15);
ReadLn;
end.
