Ответ:
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()
1.
var a: real;
x,y: integer;
begin
readln(x,a,y);
writeln('1 kg konfet stoit ', a/x:1:2);
writeln(y,' kg konfet stoyat ', a/x*y:1:2);
readln;
end.
2.
var a,s,p: integer;
begin
readln(a);
s:=a mod 10 + a div 10;
p:=(a mod 10)*(a div 10);
writeln(s);
writeln(p);
readln;
end.
3.
var a,b: integer;
begin
readln(a);
b:=(a mod 10)*10+(a div 10);
writeln(b);
readln;
end.
Это если без циклов.
6 видов сигнала.
Для кодирования 1 сигнала необходимо 3 бита, т.к. 22<6<23 или 4<6<8.
Для кодирования 100 сигналов необходимо: 100*3=300 бит.
Переведем в байты:
300\8=37,5 байт.
Округляем (в большую сторону) до 38 байт.
Дан АВСД-прямоуг. АВ=А; ВС=А-В
1)ВС=20-5=15
S=AB*BC=20*15=300
P=2AB+2BC=2*20+2*15=40+30=70
2) BC=12-3=9
S=12*9=108
P=2*12+2*9=24+18=42
var
str: <em>string</em>;
arr: <em>array of string</em>;
begin
readln(str);
arr := str.Split(' ');
writeln(String.Join('', arr));
<span>end.</span>