Delphi задачки

[xBIGx]

Помогите решить в Delphi

1) "Одномерные массивы"
Дана последовательность натуральных чисел а1,а2,...an. Создать массив из четных чисел этой последовательности. Если тыких чисел нет, то вывести сообщение об этом факте.
2) "Оператор выбора"
Даны два действительных положительных числа x и y. Арифметические действия над числами пронумерованы (1 - сложение, 2 - вычитание, 3 - умножение, 4 - деление). Составить программу, которая по введенному номеру выполняет то или иное действие над числами.
3) "Работа со строками"
Строка, содержащая произвольный русский текст, состоит не более чем из 200 символов. Написать, какие буквы и сколько раз встречаются в этом тексте. Ответ должен приводиться в грамматически правильной форме, например а - 25 раз, к - 3 раза и т.д.
4) "Циклы"
Начав тренировки, спортсмен в первый день пробежал 10 км. Каждый день он увеличивал дневную норму на 10% нормы предыдущего дня. Какой суммарный путь пробежит спортсмен за 7 дней?
5) "Линейные программы"
Найти сумму членов арифметической прогрессии, если известны ее первый член, знаменатель и число членов прогрессии.

[danekne]

1)

kol=0
for i:=1 to n do
if a[i]mod2=0 then
kol=kol+1;


2)
writeln("введите действие:");
readln(dey)
case(dey) of
1:
rez=x+y;
2: rez:=x-y;
3: rez:=x*y;
4: rez:=x/y;
default Writeln("Такое действие не предусмотрено")
end;

[Яська]

5)

var n:integer; a1,n,S, d:real;
begin
n:=StrToInt(Edit1.Text);  // количество членов прогрессии
a1:=StrToFloat(Edit2.Text); // первый член
d:=StrToFloat(Edit3.Text); // знаменатель
S:=(2*a1+d(n-1))*n/2; // собственно сама сумма
Memo1.Lines.Add('S='+FloatToStr(S));
end;

[Op1nG.Spark]

наглешь 5 задач просить РЕШИТЬ ВМЕСТО ТЕБЯ!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
и еще пишет помогите решить .о да

[QunneD]

Дата последнего сообщения: 29.03.2011, 19:27

Сегодняшяя дата: 09.12.2011, 17:05.

Парень, с головкой всё впорядке? Прием к психиатору случайно не пропустил?