Делаем переменную count — счётчик
Для наивной реализации, можно проверить что число лежит в диапазоне [0o10; 0o77] или в десятичной [8; 63]
Потом проверить что a[i] mod 8 > a[i] div 8
Если число соответствует всем условиям, увеличиваем счётчик
Потом выводим значение count
Если учитывать скобки- то 29, если нет, то 27
15483_10 = 36173_8 = 3*8^4+6*8^3+1*8^2+7*8^1+3*8^0
Program suma;
var a,b,c,sum:integer;
begin
writeln('Введите числа через пробел');
readln(a,b,c);
sum:=a+b+c;
writeln('Сумма= ',sum);
readln;
end.
А сколько рублей???
Я просто не поняла немного вопрос..