Форум о FIFA 15, FIFA 14, PES 2014 и других футбольных симуляторах на fifasoccer.ru

- Программирование (http://fifasoccer.org/forum/forumdisplay.php?f=40)

- - Ребят помогите пожалуйста (http://fifasoccer.org/forum/showthread.php?t=13638)

Ребят помогите пожалуйста

Привет. прошу вас помочь мне иначе выгонят из института,мне нужно выполнить две задачки на паскале,ну очень нужно и как можно быстрее заранее спасибо
1.Вычислить сумму квадратных корней и корней третьей степени членов натурального ряда в диапазоне от 1 до 37 млн.
2. Если среднее арифмитическое двух введённых с клавиатуры чисел превышает второе из них,то вычислить произведение введённых чисел.В противном случае произвести вычисление их частного

Мужики спасите иначе не наберу баллы и меня выкинут:(

Цитата:

Сообщение от QWARTAL (Сообщение 662155)

2. Если среднее арифмитическое двух введённых с клавиатуры чисел превышает второе из них,то вычислить произведение введённых чисел.В противном случае произвести вычисление их частного

Код:

var a,b,sa,c:real;

begin

readln(a);

readln(b);

sa:=(a+b)/2;

If sa>b then c:=a*b else c:=a/b;

writeln(c:2:2);

readln;

end.

Вроде так.
Лучше бы написал в эту тему. (нажать сюда)

Спасибо тебе,там сейчас ещё отпишусь

Ребята, подскажите пожалуйста:
Аналог ShowModal в Дельфи, для С++ Builder 6