1) на pascal ABC
var i:integer;
n:real;
a:string;
begin
readln(a);
for i:=1 to length(a) do
if a[i]='a' then n+=1;
n:=(n/length(a)*100);
writeln(n:2:1);
<span>end.
2) на pascal ABC
var i,n:integer;
a:string;
begin
readln(a);
for i:=1 to length(a) do
if (a[i]='p') and (a[i+1]='o') then n+=1;
writeln(n);
<span>end.</span></span>
Следуйте инструкциям, Adobe Flash Player нужен для отображения некоторых веб-страниц.
program numbers;
var x, y: integer;
begin
writeln('Введите число.');
read(x);
if (x mod 10)=(x div 10) then write('Цифры одинаковые') else write('Цифры разные');
end.
1) 34*16=544 бит (вес сообщения)
2) 12*16=192 бит (то, что приписали)
3) 544+192=736 бит (всего)