Const
N = 5;
M = 10;
Var
A : array[1..N,1..M] of Integer;
i,j : Byte;
Begin
For i:=1 to N do
Begin
For j:=1 to M do
Begin
If i>j then A[i,j]:=i else A[i,j]:=i*j;
Write(a[i,j]:6);
end;
Writeln;
end;
end.
Ответ:
A) 320 бит
Объяснение:
1) 2 байта * 20 символов = 40 байт;
2) 1 байт = 8 бит;
3) 40 * 8 = 320;
// Аллилуйа человеки в питоне пишут
1.
a = int(input())
if a > 0:
print(1)
else:
print(-1)
2.
a, b = int(input()), int(input())
print(max(a, b))
var
a: integer;
b: real;
begin
writeln ('введи целое число');
read (a);
if a mod 2=0 then b:=a/2
else
b:=a*a*a;
writeln ('результат',b);
end.