Если тебе нужна программа для переворачивания числа,вот тебе она на C :
#include <iostream>
using namespace std;
int main()
{
double x;
double y;
cin >> x; /* Ввод числа */
y = 1/x;
cout << "y = " << y << endl;
return 0;
}
Var
a, b, c: real;
n: integer;
begin
Write('Введите через пробел три числа: ');
Readln(a, b, c);
if a > 0 then n := 1 else n := 0;
if b > 0 then n := n + 1;
if c > 0 then n := n + 1;
Writeln('Положительных чисел- ', n)
end.
Тестовое решение:
Введите через пробел три числа: -3.54 2.16 4
Положительных чисел- 2
Частота·разрядность·время(60 сек.)=44000·16·60=42240000 бит(разделить на 8)=5280000 байт(разделить на 1024)=5156,25 кб=5мб
время=объём/(частота*разрядность) 700мб=734003200байт 16бит=2байт
=734003200/(44000*2)=734003200/88000=8340,94сек=139мин.
<span>System.Math.Sin(от чего)</span>
<em>// PascalABC.NET 3.2, сборка 1385 от 14.02.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var n:=ReadInteger('Количество строк в массиве:');
var m:=ReadInteger('Количество столбцов в массиве:');
Writeln('*** Исходный массив [',n,',',m,'] ***');
var a:=MatrRandom(n,m,-99,99);
a.Println(4); Writeln(4*a.ColCount*'-');
for var j:=0 to m-1 do a[1,j]:=5; a.Println(4)
end.
<u>Пример</u>
Количество строк в массиве: 6
Количество столбцов в массиве: 8
*** Исходный массив [6,8] ***
9 -3 -27 -90 43 -54 0 -49
-2 91 -12 -10 -21 19 52 5
26 41 79 98 91 -50 87 -50
-23 -24 -63 17 -59 75 -43 -62
-27 -13 93 2 -58 -43 -22 -90
5 94 90 -26 81 46 5 -12
--------------------------------
9 -3 -27 -90 43 -54 0 -49
5 5 5 5 5 5 5 5
26 41 79 98 91 -50 87 -50
-23 -24 -63 17 -59 75 -43 -62
-27 -13 93 2 -58 -43 -22 -90
5 94 90 -26 81 46 5 -12