n = int(input())
two_in_power = 2
power = 1
while two_in_power <= n:
two_in_power *= 2
power += 1
print(power - 1, two_in_power
Var s: string;
i:integer;
begin
write('Введите текст: ');
readln (s);
for i:=1 to length(s) do
if s[i]='к' then write (i,' ');
<span>end.</span>
1) 0, 1, 2, 3, 4, 5, 6, 7, 8
2) 1, 2, 3, 4, 5, 6, 7, 8, 10, 11, 12, 13, 14, 15, 16, 17, 18, 20, 21
3) 68, <span>51.75
4) </span><span>300202
5) </span>76.63, <span>3E.CC
</span><span>111000110001.000001
</span><span>111001.011000101
</span>6) 100100
1110
открыть сайты с переводом сс не так уж и сложно
79. Изобразите на схеме элементы, образующие и наВ = {н, о, ч, к, а), с = {р, е, к, ај, D = {у, ч, е, н, и, к}. Запишите все эле
Андрей 2011 [102]
Ответ:
Объяснение:
1{н, о, ч, к, а, р, е}
2) {к, а}
3) {н, о, ч, к, а, р, е, у, и}
4) {к, а}
5) {н, ч, к, е}
6) {у, ч, е, н, и, к}
7) {н, о, ч, к, а, е}
8) {к, а, ч, н}
Можно обойтись без массива и этим сэкономить память компьютера.
Можно также вывести такую матрицу (в виде песочных часов) любого размера. Для этого нужно только изменить значение n в строке
const n=5
Program Pentelemon;
uses crt;
const n=5;
var
i,j:integer;
begin
writeln('*** alphaues is thinking... ***');
writeln('*** OK ***');
writeln();
for i:=1 to n do
begin
for j:=1 to n do
begin
if ((j>=i) and (i+j<=n+1)) or ((j<=i) and (i+j>=n+1)) then
write ('1 ')
else
write ('0 ');
end;
writeln();
end;
end.