помогите пож-та решить несколько задач, оч. хочется хорошую оценку в аттестате

[Начинающая]

[CENTER] 4. составить программу. которая будет находить а в степени в, где а и в-целые числа.[/CENTER]

[Начинающая]

в задаче №5 что-то не то...
var i,a,b: integer;
function figures_amount(x: integer):integer;
var s: string;
begin
str(x,s); Здесь что-то не получается, то ли с двоеточием что-то, то ли непонятно что))))
figures_amount:=length(s);
end;
begin
readln(a);
readln(b);
if (a<0) or (b<0) then exit;
if figures_amount(a)>figures_amount(b) then writeln('Кол-во цифр числа A больше

чем B');
{проделай это же с "меньше" и "равно"}
readln;
end.

[Колядин Максим]

Здесь просто не может быть ошибки в коде! У тебя, почему-то и 4-ая задача тоже "с точкой и запятой" была...
Попробуй скопировать код ниже в текстовый документ, а затем открыть его с помощью Паскаля и запустить. О результатах сообщи, пожалуйста.

Код: Выделить всё

var i,a,b: integer;

function figures_amount(x: integer):integer;
var s: string;
begin
str(x,s);
figures_amount:=length(s);
end;

begin
readln(a,b);
if (a<0) or (b<0) then exit;
if figures_amount(a)>figures_amount(b) then writeln('Кол-во цифр числа A больше чем B');
{проделай это же с "меньше" и "равно"}
readln;
end.

/P/S/. Скажи, какая там у тебя ошибка выдавалась, если не секрет.

[Начинающая]

выдает
":" expected
и показывает на str(x,s);
а именно-подчеркивает r(s
вот.

[Колядин Максим]

не может быть... скажи-ка поточнее, на чём код пробуешь запускать. если это паскаль, то назави версию и т.п.

[Начинающая]

паскаль это))) версия не знаю какая...у учителя по информатике брала,а где можно посмотреть?
п.с. может через ась попробуем? так быстрее будет

[Колядин Максим]

версия не знаю какая...у учителя по информатике брала,а где можно посмотреть?

В самой программе вверху жми Help>>About....

п.с. может через ась попробуем? так быстрее будет

418-031-161

[Начинающая]

версия 7.0. в асю я зашла,мой номер 458-048-039.)))

[Хыиуду]

нашли ошибку? код выглядит безошибочным. хочу знать, где там могло глючить!

[Начинающая]

в том то и дело.что не нашли,точнее не искали)) а у тебя есть варианты может хоть какие-нибудь?