Uses Crt;
Const
N = 13;
Var
A:array[1..N] of integer;
i,j,Min,B:integer;
Begin
ClrScr;
Randomize;
Write('Исходный массив:');
For i:= 1 to N do
Begin
A[i]:=random(2*N+1)-N;
Write(' ',A[i])
End;
WriteLn;
Write('Отсортированный массив:');
For i:= 1 to N do
Begin
Min:=i;
For j:= i+1 to N do
if A[j] < A[Min] then Min:=j;
B:=A[i];
A[i]:=A[Min];
A[Min]:=B;
Write(' ',A[i])
End;
ReadLn
End.
<em>// PascalABC.NET 3.3, сборка 1634 от 14.02.2018</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
<u>№1</u>
begin
var (x,y,z):=ReadReal3('Введите x,y,z');
var a:=(x+y-z)/(x*x+2);
Writeln(a)
end.
<u>№2</u>
begin
var (s,n):=ReadInteger2('Введите S,N:');
s*=1000; // перевод в граммы
Writeln('Будет заполнено коробок: ',s div n);
Writeln('В незаполненной коробке останется вес, г: ', s mod n)
end.
Ответ:
1 бит
Объяснение:
Пиксели 64*64= 4096
Глубина цвета
512байт : 4096= 4096 бит :4096= 1 бит
Нет, но все же нагрузка для телефона.
Смотря какой телефон у тебя...Если оригинал то угроз мало,если корейский,китайский,то некоторые изменения вроде будут.
А если у тебя зарядка для телефона(обычный зарядник с "УСБ" подключением) то будет лучше)))
Const n=50;
var a:array [1..n] of integer;
i,k:integer;
begin
for i:=1 to n do begin
a[i]:=random (21)-10;
if a[i]=0 then k:=k+1;
write (a[i]:4);
end;
writeln ('кол-во нулей =',k);
end.