Форум гитаристов

мне чтобы смотреть можно было.

@Ilya@, спасибо, то что нужно.

Народ, есть, кто шарит в паскале? дело плевое, но , я сам в программировании шланг 

Народ, есть, кто шарит в паскале? дело плевое, но , я сам в программировании шланг 

что у тебя?

... и добавил:

+1, отличная программа, простая до неприличия!

вообще програмиированием давно не занимался, но если костыли устроят, то:

var
x, y, l, i:Integer;
s:string;
x:=48;
s:=IntToStr(a);
l:=StrLength(s); //если аткой функции нет, можешь сам написать. ни чо сложного
i:=0; y:=0;
while (i<l) do begin
y:=y+(strToInt(s[i]^3)*4;
inc(i); //ну или i:=i+1;
end;
if (x^2)=y then writeln('true') else writeln('false');а костыли в том, что я извлекал цифры из строки. Их можно извлечь и математическим способом. Лень мозг напрягать. Но математический смысл состоит в том, что мы работает в десятичной системе счисления и нам нужно всего лишь разложить число на сотни десятки единицы, как мы это делаем при переводе чисел между системами счисления


... и добавил:

должно работать. но не проверял. Я больше сями занимаюсь.. Хотя и их забросил полгода назад

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

Ребят помогите плиз. Поймал вирус какой то, точней дочка... Вчера вечером прихожу с работы, открываю Firefox он вроде открывается но тут же закрывается. Dr web пишет что удален некий троян Trojan.Capberp.30 файл сам называется что то вроде wrtclst.dat, а теперь внимание самое интересное, этот файл он удалил из папки EI4vdTvrnRin которая не видна на диске С даже при включенной функции видеть все системные папки и файлы и с включенным режимом просмотра скрытых файлов. Одним словом я ен вижу эту папку заходя из под этой винды на диск С, а вот написав вручную в пути эту папку он открывает и так же с другого винта из под другой винды он эту папку так же видит и даже дает удалять, но потом при загрузке опять зараженной винды он снова её создает и снова там появляется этот файл wrtclst.dat. Вообщем инет не работает, что делать? Я пробывал переустановить Internet Explorer 8 но не помогло! 
Так же я залез в regedit и там с помощью поиска (видимо зря) поудалял все ссылки на EI4vdTvrnRin. Потом правда пожалел, потому что во первых она опять появилась.