<h3>PascalABC.NET 3.4.2, сборка 1881 от 19.11.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
var a, b, c, d: real;
Read(a,b,c,d);
Println('1)', a + b + c + d);
Println('2)', a * b * c * d);
Println('3)', a * a - d * d);
Println('4)', Sqrt(a * b * c));
Println('5)', d + b - b * c)
end.
<h2>Пример</h2><h3>23.43 -152.18 -0.13 15</h3><h3>1) -113.88 </h3><h3>2) 6952.87593 </h3><h3>3) 323.9649 </h3><h3>4) 21.5296321845033 </h3><h3>5) -156.9634 </h3>
125 Кбайт=125*1024*8=1024000 бит
0011 - голубой, 1111 - код последнего цвета
Всего 16 цветов(1111=15, счет с 0), 16=
, 4 бита на 1 пиксель
1024000/4=256000
MxN -разрешающая способность
<u>M*N=256000</u><u>M и N могут быть любыми, но чтобы они удовлетворяли условию.
Например: 500*512</u>
Это какой класс? Можете сказать? И я может быть помогу
Ответ:
n=int(input())
l=[]
k=[]
while n>0:
if n%2==0:
l.append(n)
if n%2==1:
k.append(n)
n=n-1
print("""участники команды "Метеоры:" """,*k,sep='\n')
print()
print("""участники команды "Кометы:" """,*l,sep="\n")
print()
Uses Crt;
Const
N = 3;
M = 4;
Var
A,B:array[1..N,1..M] of real;
i,j:integer;
Min,Max:real;
Begin
ClrScr;
Randomize;
Min:=1;
Max:=1;
WriteLn('Массив B:');
For i:= 1 to N do
Begin
For j:= 1 to M do
Begin
B[i,j]:=random(20)+1;
Write(B[i,j]:3,' ')
End;
WriteLn
End;
Max:=B[1,1];
Min:=B[1,1];
For i:= 1 to N do
For j:= 1 to M do
Begin
if B[i,j] > Max then Max:=B[i,j];
if B[i,j] < Min then Min:=B[i,j];
End;
WriteLn('Min(B) = ',Min);
WriteLn('Max(B) = ',Max);
WriteLn('Массив A:');
For i:= 1 to N do
Begin
For j:= 1 to M do
Begin
A[i,j]:=(2*B[i,j]+Min)/Max;
Write(A[i,j]:6:3,' ');
End;
WriteLn
End;
ReadLn
End.