Паскаль.массивы.

[aigulia]

Помогите написать программы на Паскале! Сама в этом не разбираюсь, по этому прошу вашей помощи! Заранее спасибо!!

1. Если уравнение ax2 + bx + c = 0 (a не равно 0) имеет вещественные корни, то логической переменной t присвоить значение true, а переменным x1 и x2 – сами корни, иначе же переменной t присвоить false, а значения переменных x1и x2 не менять.
2. Дано 50 вещественных чисел. Найти порядковый номер того из них, которое наиболее близко к какому-нибудь целому числу.
3. Дано натуральное k. Напечатать k-ю цифру последовательности 1234567891011121314…, в которой выписаны подряд все натуральные числа.
4.Даны целые числа x1, x2, …, x55. Вычислить величину
x1(x2+x3)(x4+x5+x6)(x7+x8+x9+x10)…( x46+x47+…+x55).

[Grag]

Обращайся, сделаю... недорого...
Контакты:
e-mail: skiper@rol.ru
icq: 585281783
Skype: delmas61

[sllh_111]

Язык не указали, наработок нет...(((
ну да ладно вот:
2.

var n,i,max: integer;
min: double;
A: array[0..49] of double;
begin
max:=100;
for i:=0 to 49 do
begin
A[i]:=(1+Random(max))/(2+Random(50));
end;
min:=max; n:=0;
Memo1.Clear;
for i:=0 to 49 do
begin
Memo1.Lines.Add(IntToStr(i+1)+' - ' +FloatToStr(A[i]));
if (Abs(A[i]-Int(A[i]))<min) then
begin
min:=Abs(A[i]-Int(A[i]));
N:=i+1;
end;
end;
Memo1.Lines.Add('Наиболее близкое к целому числу - число № '+ IntToStr(N));
end;

3.

var k, CurLen : integer;
i, iSQR : Longint;
sSQR : string;
begin
WriteLn('Введите k');
ReadLn(k);
CurLen := 0;
i := 1;
iSQR := SQR(i);
str(iSQR,sSQR);
WriteLn('>'+sSQR+'<');
while (CurLen+Length(sSQR)) < K do
begin
CurLen := CurLen + Length(sSQR);
inc(i);
iSQR := SQR(i);
str(iSQR,sSQR);
WriteLn('>'+sSQR+'<');
end;
WriteLn(k:1,'-я цифра в последовательности = ',Copy(sSQR,K-CurLen,1));
end.

[sllh_111]

Grag
сорри когда печатал не видел твоего сообщения!

[Grag]

Да нет проблем... А язык указан в заголовке темы... Да и сама ТС в своем посте писала

Помогите написать программы на Паскале!

[aigulia]

sllh_111
Спасибо тебе!!

[Grag]

До скорого свидания на форуме, aigulia!!!

[sllh_111]

aigulia
всегда пожалуйста
Grag
да с языком я чё-то припарился))))))))