Recent content by s_S_s

Помогите найти Сериал "Лекс" фантастика старый прикольный фильмец, заранее спасибо! Помогите найти Сериал "Лекс" фантастика старый прикольный фильмец, заранее спасибо!

Здравствуйте! Помогите пожелуйсто, где бы, надыбать программу по Учету кадров. Заранее спасибо огромное!:confused:

Что то у меня не получается.....

ну ктонибудь поможет?

Здравствуйте! Вот такое задание у меня опять. Пожалуйсто помогите, за ранее благодарен: Алгоритм Евклида нахождение наибольшего общего делителя (НОД) неотрицательных чисел основан на следующих свойчтвах этой величины. Пусть m и n одновременно не равные нулю целые не отрицательные числа и пусть...

Как с помощью ceiling? Результат я думаю должен быть: Если 5 то 1 одно число, если 13 то 2 два числа, если 211 то 3 три, и так далее.

Сдесь както задача поставленна, может в ней имеется в веду подсчитать сколько знаков?

Через какой оператор писать: Дано натуральное число n. Подсчитать сколько чисел в этом числе?

решил наконецто через оператор фор во: var i,n,r:integer; begin n:=strtoint(Edit1.text); i:=0; r:=2; for i:=1 to n-1 do r:=r*2; showmessage('2 n-oй степени равно' +inttostr(r)); i:=i+1; end; end.

С математькои я знаю что у меня проблемы но с этим я уже разобрался, осталось правельно цикл построить. то что вы написали к сожелению не работает. Извеняюсь если что не так.

Дано действительное число n. Вычислить: 2^n Все перепробовал невыходит не чего procedure TForm1.Button1Click(Sender: TObject); var r,i,n,s,r1:integer; begin //s:=0; i:=1; r:=1; n:=strtoint(Edit1.text); While i<=n do begin //if i=1 then //showmessage('2 â â n-îé ñòåïåíè ðàâíî 1'); //s:=s+i...

Может видюха греется, может кулер по баще присобачить

Помеха винта, блок питания поменяй в нем проблема сто за двести По мощнее блок ставь

Помеха винта, блок питания поменяй в нем проблема сто за двести

мне Melodi нравятся ну и RISHENG нечешные