Var
a:real;
begin
write('Write amount in cm: '); readln(a);
writeln('In meters: ',a/100:0:4);
writeln('In kilometers: ',a/10000:0:4);
readln
end.
// PascalABC.NET 3.2, сборка 1431 от 28.04.2017
// Внимание! Если программа не работает, обновите версию!
begin
var n:=ReadInteger('Количество строк в матрице:');
var m:=ReadInteger('Количество столбцов в матрице:');
Writeln('*** Исходная матрица [',n,',',m,'] ***');
var a:=ReadMatrInteger(n,m);
var z:=ReadInteger('Z=');
var s:=a.ElementsWithIndexes.Where(x->abs(x[2])<=z);
if s.Count>0 then begin
var t:=s.First;
Writeln('Строка ',t[0]+1,', столбец ',t[1]+1)
end
else
Writeln('Элемент не найден');
end.
Пример
Количество строк в матрице: 4
Количество столбцов в матрице: 5
*** Исходная матрица [4,5] ***
-33 -46 7 48 -44
-13 -3 -13 -10 48
-18 -25 -39 -23 -44
28 32 -1 39 3
Z= 5
Строка 2, столбец 2
1. Math.sqrt(a+b)
2. 3.7*f2-5.36*x*x*x
3. (u+2*v)*((1.89*Math.abs(u)+0.15-0.68*v)/(1+Math.sqrt(u*u+v*v)))
<span>Свойства комьпютера: Версия виндоус, система, сведения об активации, оборудование, быстродействие и т.д., Мои документы: тип, размещение, размер, размещение конечной папки....Рабочий стол: заставка, темы, оформление, цветовые схемы, разрешение... Др. обьектов: в основном размещение и размер, дата последнего изменения.</span>
Решаем задачу по формуле N = 2i
N- мощность алфавита
i - вес одного символа (в битах)
N = 16, следовательно i = 4 (16 = 24)
N = 256, следовательно i = 8 (256 = 28)
Ответ: в 2 раза
