Pascal. Если не сделаю - не допуск к сессии(

[zh3nya]

№1) Вычеслить: y=x(в степени 5) + cos(vt), x=v(в степени 3)/ -t(в степени 2) , v=|t|, t-ести(любое число)
№2)Найти максимум из трех чисел. Если он больше некоторого числа А, то найти сумму этих чисел, иначе – произведение.
№3) V= cos(b-s)/ctgx(в степени 4) + e(в степени ax). Данные: 8<=x<=5; ∆x=1; a=2,22; b=3; c=-14,2
№4) a =e(в степени 2х)
x {1.3; 0.2; -4; 3.2; 5; -1}
Найти: сумму элементов с четными номерами и их количество.
Помогите пожалуйста кто чем может.
Если это платно напишите как с вами связаться.

[andrewpalkin]

Могу посочувствовать

[Hacker19_90]

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

Могу посочувствовать

И как тебе не стыдно

[Prime123]

Напишите мне
ICQ 452354650

[Кирилл Юрьевич]

№2

Program dopoOsk_k_sessii;
uses crt;
var  a,b,c,s,d,max:integer;
begin
writeln('Введите три числа: ');
write('Первое: ');
readln(a);
write('Второе: ');
readln(b);
write('Третье: ');
readln(c);
write('Введите некоторе контрольное число: ');
readln(d);
max:=a;
if b>max then max:=b;
if c>max then max:=c;
If max>d then s:=a+b+c else s:=a*b*c;
write('Максимальное число: ',max,' да, чуть не забыл: ',s);
end.

Вот...Если что не так - не обижаться

[zh3nya]

Спасибо большое=)