Решебник (задания, переводы и т.п.)

[Kup9]

Кто может решить по быстрому задачку - я верю вам это легче простово, програму пожалуйста на турбо паскале
Задача:Найти сумму чётных по значению элементов массива, и произведение элементов с нечётными индексами.
Заранее бралогаден, тока побыстрее.

[NightFire]

Ни у кого нет ответов для рабочей теьтради по Биологии 10-11 класс

[shava13]

Kup9,

Program kd123;
uses crt;
var a,sum,proisv,c:integer;
d:array [1..90] of integer;
begin
ClrScr;
writeln('Введите количество элементов массива');readln(c);
sum:=0;
proisv:=1;
for a:=1 to c do
begin
writeln('Ввод элемета №',a);
readln(d[a]);
if a mod 2<>0 then
begin
proisv:=proisv*d[a];
end;
if d[a] mod 2=0 then
begin
sum:=sum+d[a];
end;

end;
writeln('Сумма чётных элементов',sum);
writeln('Произведение элементов с нечётным индексом',proisv);
readkey;
end.

[Kup9]

Спс большое, помогло =)

[Vinny Puh]

Друзья, студенты. Помогите найти курсовик (любая тема, это заранее беспокоюсь) по Сопротивлянию материалов или Прикладной механике.

[VelvetDust]

Задачка по программированию, надо на языке С (не С++) и блок-схему, наверняка просто, но я не шарю... Тут, уверен, для многих это на 5 минут работка. Буду очень благодарен!

Дано число. Определить, равна ли сумма двух первых цифр числа сумме двух его последних цифр.

[SCHALKE 04]

Помогите, люди добрые
Найти все а, при которых один из корней уравнения x^2 - ( a^2 - 2a + 2 ) x + 4 = 0 больше утроенного второго корня на 1

[Myakin]

Народ,помогите найти характеристику всех персонажей пьесы "На дне" горького

[daNch1k]

Опять я со своим ИВТ

1) Среди чисел 1, 1+1/2, 1+1/2+1/3, 1+1/2+1/3+1/4, и тд.. найти первое, большее числа n.

2) Дан массив вещественных чисел: все элементы с нечетными номерами заменить на их квадратный корень

[ChooBea]

Сообщение от Danch1k

2) Дан массив вещественных чисел: все элементы с нечетными номерами заменить на их квадратный корень

Я паскаль не помню особенно, но:

uses crt;

var i,a,c:integer;
d:array [1..90] of real; //Такой тип есть? я не помню) если нет, то Float может быть)

begin
ClrScr;
writeln('Dlina massiva');
readln(c);
for i:=1 to c do
  begin
    writeln('Ввод элемета №',i);
    readln(d[i]);
    if (i mod 2<>0) and (d[i]>0) then d[i]:= sqrt(d[i]);
  end;

writeln('Itogovii massiv');

for i:=1 to с do
   begin
    writeln(d[i]:3);
   end;

readln();
end.

1) Среди чисел 1, 1+1/2, 1+1/2+1/3, 1+1/2+1/3+1/4, и тд.. найти первое, большее числа n.

uses crt;

var a,b,n:real;

begin
ClrScr;

writeln('vvedite n');
readln(n);

while n>a do
  begin
    b=b+1;
    a:=a+1/b;
  end;

writeln('4islo -', a);

readln();
end.

не отвечаю за правильность, требует проверки, отладки тем, кто хоть чуть с языком сейчас работает)
спасибо shava13 за напоминание основ паскаля)