Var
a: string;
b: char;
i, k: integer;
begin
readln(a);
readln(b);
for i := 1 to length(a) do
if a[i] = b then
k := k + 1;
writeln(k);
end.
T=t(0) +T
t(0)=(512*8*1024)/218=19239.9 сек
T=(5*1048576*8)/212=197844.528 сек
t=217084 сек
<span>Подправил,решение гораздо меньше и используется меньше переменных
program ZADACHA1;
var
a,b,c:integer;
Begin
Writeln('Цыбулак Максим');
Readln(a);
Readln(b);</span>
Writeln('a+b=',a+b);
Writeln('a-b=',a-b);
Writeln('b-a=',b-a);
Writeln('a*b=',a*b);
Writeln('a/b=',a/b);
Writeln('b/a=',b/a);
Writeln('Квадрат числа ',a,' = ',sqr(a));
Writeln('Квадрат числа ',b,' = ',sqr(b));
Writeln('Корень числа ',a,' = ',sqrt(a));
Writeln('Корень числа ',b,' = ',sqrt(b));
end.
Если кодировать путем перевода в двоичную систему счисления, то 3 бита позволяют сохранить максимальное число, равное 2^3-1 , что-то=7. Т.к. в одной ячейке можно записать или 1, или 0.
Подобное кодирование (перевод в двоичную систему счисления) при использовании N бит в общем случае отображается на 2^N, начиная с 0 (поэтому -1).
Второй ответ 2/\4-1=15