<span>n = int(input('n ='))
m = int(input('m ='))
if n%2<span>:
</span> for i in range(n,m+1,2)<span>:
</span> print(i,'**2 = ',i**2)
else<span>:
</span> for i in range(n+1, m+1, 2)<span>:
</span> print(i, '**2 = ', i ** 2)</span>
В тетради не могу,а так смогу.
1)98304 бит=98304/8000(так как в 1 кбайте 8000 бит)=12,288 кбайт.
2)0,75 кбайт=(можно выразить сначала,как 3/4)=8000/4*3=6000
3)20480 бит=20480/8000=2,56 кбайт
4)0,45 кбайт=( можно выразить 45/100=9/20)=8000/20*9=400*9=3600 бит
begin
var n := ReadInteger;
var a := ReadArrInteger(n);
var (kp, kn) := (0, 0);
foreach var c in a do
if c > 0 then Inc(kp)
else if c < 0 then Inc(kn);
if kp > kn then a.Sum.Println;
end.
===== PascalABC.NET =====
Type
LinMass = array [1..1000] of Integer;
var
A: LinMass;
N, i, j: Integer;
begin
Write('Количество элементов массива: ');
ReadLn(N);
for I := 1 To N Do
begin
Write('Введите A[', I, '] ');ReadLn(A[i]);
end;
i := 1;
while (i <= n) do
if (A[i] >= 100) and (A[i] <= 999) and (A[i] mod 2 = 0) and (A[i] mod i = 0) then begin
for j := i + 1 to n do
A[j - 1] := A[j];
n := n - 1
end
else i := i + 1;
for I := 1 To N Do
write(a[i]:6);
end.
Var a:integer;
begin
readln(a);
case a of
1:writeln('январь,31 день');
2:writeln('февраль,28(29) дней');
3:writeln('март,31 день');
4:writeln('апрель,30 дней');
5:writeln('май,31 день');
6:writeln('июнь,30 дней');
7:writeln('июль,31 день');
8:writeln('август,31 день');
9:writeln('сентябрь,30 дней');
10:writeln('октябрь,31 день');
11:writeln('ноябрь,30 дней');
12:writeln('декабрь,31 день');
end;
end.<span>
</span>