Ну, если надо в десятичной системе, то получим:
Яблок =<span>1011₂=11₁₀
Груш = 9₁₆=9₁₀
Всего получим 11+9 = 20 фруктов
</span>
var s: string;
i, k: integer;
begin
writeln('Enter string:');
readln(s);
k := 0;
//Вместо Y символ(думаю сможеш прицепить ввод)
for i := 1 to length(s) do if (s[i] = 'Y') then inc(k);
write('Quantity of symbol in string is equal to ', k);
readln
end.
Ответ:Ммм... Паскаль) Для этого сайты есть.
Объяснение:
Документы , разную инфу ( про разные новости _)
Если я всё правильно понял, то должно быть так:
var a:integer;
begin
if a mod 2 = 0 then a:=a*a else a:=a*a*a;
write(a);
end.