<u>PascalABC.NET 3.3.5, сборка 1648 от 31.03.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
var (x,y):=ReadReal2('x,y=');
Writeln((Sin(x)+cos(y))/(Cos(x)-Sin(y))*Tan(x*y))
end.
Using System;
class Program
{
static void Main()
{
var random = new Random(DateTime.Now.Millisecond);
int n = 5;
int k;
var c = new int[n, n];
var b = new int[n];
Console.WriteLine("C:");
for (var i = 0; i < n; i++)
{
for (var j = 0; j < n; j++)
{
c[i, j] = random.Next(0, 9);
Console.Write(c[i, j] + " ");
}
Console.WriteLine();
}
Console.WriteLine();
for(int j = 0; j < n; j++) {
k = 0;
for(int i = 0; i < n; i++)
if (c[i, j]==0) k++;
b[j] = k;
}
Console.WriteLine("B:");
for(int i = 0; i < n; i++)
Console.Write(b[i] + " ");
Console.WriteLine();
Console.ReadKey();
}
}
Пример:
<span>C:
3 5 1 3 0
1 6 4 1 7
5 2 5 1 2
4 6 3 0 3
2 3 8 0 7
B:
0 0 0 2 1</span>
Program calc;
var
operation:char;
s,a,b:real;
begin
writeln('Введите первое число'); readln(a);
writeln('выбирайте знак(+ - * /)'); readln(operation);
writeln('Введите второе число'); readln(b);
if (b=0) and (operation = '/') then begin
writeln ('ERROR');
exit
end;
case operation of
'+': s:=a+b;
'-': s:=a-b;
'*': s:=a*b;
'/': s:=a/b;
end;
Writeln('Результат: ',s)
end.
#include <iostream>
int main()
{
int n = 0 ;
std::cin>>n;
double S= 0;
for(int i = 2; i<=n+1; ++i)
{
s = s+ 1/(double)i;
}
std::cout<<s;
return 0;
}
<u>PascalABC.NET 3.3.5, сборка 1659 от 09.04.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
var a:=ArrRandom(10,-10,50); a.Println;
a.Transform(t->t<0?-t:t); a.Println
end.
<u>Пример</u>
4 -6 26 -5 14 17 17 47 -9 26
4 6 26 5 14 17 17 47 9 26