110011 = 51(10)
111 = 21(10)
35 = 29(10)
1B = 27(10)
Самой большое число 110011
program dz2;
uses crt;
var x: integer;
begin
write ('введите номер месяца');
read (x);
if (x>=3) and (x<=5) then
write ('весна');
if (x>=6) and (x<8) then
write ('лето');
if (x>=9) and (x<=11) then
write ('осень');
if (x=12) or (x<=2) then
write ('зима');
end.
mas = float(input('Введите вашу массу в кг: ')) #ввод массы
mas_on_Moon = mas * 0.165 #умножение на 16.5 процента
print("Ваш вес на Луне составляет " + str(mas_on_Moon) + " кг")
for i in range(15):
mas += 1 # увеличивание массы на 1
mas_on_Moon = mas * 0.165
print(str(i+1) + ") Масса на Земле = " + str(mas) + " кг | Масса на Луне = " + str(mas_on_Moon) + " кг")
//PascalABC.Net 3.1 сборка 1200
const
n = 15;
begin
var a := ArrRandom(n, 0, 50);
var b := ArrRandom(n, 0, 50);
a.Println;
b.Println;
a := a.Concat(b).ToArray;
a.Println;
a.Sort;
a := a.Slice(0, 1, n);
a.Println;
end.