program c1;
var
i,n:integer;
x:longint;
begin
x:=1;
write('Введите n: ');
readln(n);
for i:=1 to n do
if (i mod 2=1) then x:=x*i;
writeln(x);
end.
<span>1024*2048=2097152 пикс. Теперь это число умножить на 3 бита = 6291456 бит = 786432 байт = 768 килобайт.</span>
Чтобы:звонить родным,общаться,играть в мобильные игры,читать новости,проверять информацию
A = list()
k = 0
for i in range(5):
A.append([])
for j in range(5):
A[i].append(k)
k+=1
for i in range(5):
for j in range(5):
print(A[i][j], end = " ")
print()
print("Последняя удаленная строка: ", A.pop())
for i in range(len(A)):
for j in range(len(A[i])):a
print(A[i][j], end = " ")
print()
Var q,i,s:integer;
begin
readln(q);
s:=0;
i:=0;
while s<q do
begin
i:=i+1;
s:=s+i;
end;
if s=q then writeln('Страница = ',i+1)
else writeln('Ошибка ввода');
end.
Пример:
5
<span>Страница = 6</span>