Полезные коды

Bogdan-G off

29.05.2012 / 22:21

anasezzz, зачем?

anasezzz off

29.05.2012 / 21:10

XakepPRO, string же к числу надо приводить.

Гость

29.05.2012 / 21:07

Результат один и тот же будет. Проще trunc(log10(string))+1; некуда.

aNNiMON off

29.05.2012 / 20:44

let live

TAPAHbl4, да, именно так, но без пятой строки.

anasezzz off

29.05.2012 / 20:18

TAPAHbl4, ты то же самое написал.

TAPAHbl4 off

29.05.2012 / 19:49

тогда

var s: string;
i: integer;
begin
readln(i);
s:=inttostr(i);
str(i, s);
writeln(length(s));
end.

aNNiMON off

29.05.2012 / 19:31

let live

TAPAHbl4, нет, IntToStr это функция Delphi.

TAPAHbl4 off

29.05.2012 / 19:22

var s: string;
i: integer;
begin
readln(i);
s:=inttostr(i);
writeln(length(s));
end.

не проще ли?

anasezzz off

29.05.2012 / 08:03

Я вчера на экзамене вторым способом воспользовался, спасибо

Sweety off

27.05.2012 / 17:29

XakepPRO, тебе 15? 0_о

Всего: 27

<< 1 2 3 >>