Search results

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

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

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

Дано действительное число 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...

Простенький вопросик: как найти площадь круга если известна длинна окружности?

проблема следуючая: Дади два действительных числа если оба числа не отрицательные и не одно из них не пренадлежит отрезку [0.5, 2.0], то оба значения уменьшить в 10 раз. var m: array [0.5..2] of real;(Сдесь ошибка) begin if x<>m then if y<>m then begin x:=x-d; y:=y-d...

procedure TForm1.Button1Click(Sender: TObject); var x,y,d,r,m:real; begin x:=strtoint(Edit1.Text); y:=strtoint(Edit2.Text); r:=strtoint(Edit3.Text); d:=sqrt(x^2+y^2); if d<=r then showmessage('Òî÷êà ïðåíàäëåæèò îêðóæíîñòè ='i(d)); else showmessage('Òî÷êà íå ïðåíàäëåæèò îêðóæíîñòè ='inttostr(d))...

Здравствуйте! Проблемка такая. мышкоцй навожу на мой компьютер счелкаю и открывается проводник, что произошло не понимаю, как исправить? Помогите плиз!