<em>// PascalABC.NET 3.3, сборка 1555 от 21.10.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var HasReal:(real,real,real)->boolean:=(a,b,c)->b*b-4*a*c>=0;
Writeln(HasReal(5.5,-3,4.2));
Writeln(HasReal(1,-2,-6))
end.
<u>Результат</u>
False
True
Первая строка - определение функции HasReal, остальные две - примеры обращения к ней.
C#
using System; using<span> System.Text;</span>
class Mean
{
public int main()
{
int len;
Console.Write("Введите диагональ матрицы: "); len=(int)Console.ReadLine();
int[,] matrix = new int[len,len];
Console.WriteLine("Среднее арифметическое: ", average(matrix));
}
public int average(int[] mas)
{
int ans=0;
for(int x = 0; x<mas.Length;x++)
{
ans+=mas[x];
}
return ans;
}
public int[] diagonal(int[,] mas)
{
int[] ans = new int[mas.GetLength(0)];
for(int x=0; x<ans.Length; x++)
{
ans[x]=mas[x,x];
}
return ans;
}
}
Чтобы программировать и создавать программы
А - <span>11100001 - 225
б - </span>11100010 - 226<span>
а - </span><span>11100001 - 225
к - </span><span>11101011 - 235
С - </span><span>11110011 - 243
о - </span>11101111 - 239<span>
р - </span>11110010 - 242<span>
о - </span>11101111 - 239<span>
б - </span>11100010 - 226<span>
а - </span>11100001 - 225<span>
н - </span>11101110 - 238
7 бук - по 8 бит на каждую (но не факт, кодировка не указана)
56 бит