<em>Microsoft QBasic 1.0</em>
DIM p AS DOUBLE
p = 1
FOR i = 5 TO 27
p = p * i ^ 2
NEXT i
PRINT p
<u>Результат</u>
2.05846315812941D+53
Точное значение (для контроля) вычисленное в программе компьютерной математики: 205846315812941087891721086815311205761024000000000000
===== PascalABC.NET =====
begin
var (a, b) := ReadReal2('Введите два неотрицательных числа:');
if a = b then
Println('Введенные числа равны')
else
Println('Квадрат наибольшего:', Sqr(Max(a,b)),
' корень квадратный наименьшего:', Sqrt(Min(a,b)));
end.
Ответ ТОКИО = 15625
Упс. Сначала решил без всяких хитростей, только потом увидел про Java Netbeans. Это не знаю что такое за иероглиф, извини.
<u>Результат работы программы(при e = 2.718281828459045):
</u><em>3.71828182845905</em>
<em>6.11325037878293</em>
<em>8.65223367403409</em>
<em>11.3890560989306</em>
<em>14.3564690166011</em>
<em>17.5824351900074</em>
<em>21.0940301070678</em>
<em>24.9188286785579</em>
<em>29.0855369231877</em>
<em>33.6243429220178</em>
<em>38.5671484533409</em>
<em>43.9477455058849</em>
<em>49.8019662871682</em>
<em>56.1678206691979</em>
<em>63.0856283809521</em>
<span><em>Сумма элементов массива с нечетными индексами равна 228.361294670811
</em>-------------------
Код программы в приложении (компилятор Pascal ABC.NET).</span>
//Dev-C++ 5.11(С)
#include <stdio.h>
int main(void)
{int n,i,f;
float sr,ar[100];
scanf("\%d",&n);
i=0;
f=0;
while(i<n)
{scanf("\%d",&ar[i]);
sr=sr+ar[i];
i++;}
sr=sr/n;
i=0;
while(i<n)
{if(ar[i]<sr)f++;
i++;}
printf("\%d",f);
return 0;
}
Пример ввода:
5
1
2
3
4
5
Пример вывода:
2