Чтобы заказать в ателье новогодние костюмы . собраны данные о размере олесы членов драматическоо кружка : 42 , 46 , 40 , 48 , 40 , 46 , 46 , 40 , 46 , 48 , 44 , 40 , 42 , 46 , 46 , 44 , 46 , 40 , 48 , 48 , 44 , 46 , 40 , 42 , 40 , 48 , представьте эти данные в виде таблицы . ответьте на вопросы : а ) сколько человек занимается в кружке ? б ) какой размер одежды встречается чаше других ? в ) какой размер одежды встречается реже других ? 1 ) какого размера 40 или 42 надо заказать больше и на сколько постройте ленейную диаграмму ( расстояние между столбиками - 2 клетки )
1.
import random
a = random.randint(1,15)
b = random.randint(1,15)
if a == b:
a = 0
b = 0
print(a,b)
2.
import random
n = random.randint(1,999)
a = ""
b = ""
n = str(n)
if len(n) == 1:
a = "однозначное"
elif len(n) == 2:
a = "двухзначное"
elif len(n) == 3:
a = "трёхзначное"
n = int(n)
if n % 2 == 0:
b = "чётное"
else:
b = "нечётное"
print(a + " " + b + " число")
3.
n = int(input("Введите номер дня недели: "))
if n == 1:
print("Понедельник")
elif n == 2:
print("Вторник")
elif n == 3:
print("Среда")
elif n == 4:
print("Четверг")
elif n == 5:
print("Пятница")
elif n == 6:
print("Суббота")
elif n == 7:
print("Воскресенье")
else:
print("Такого дня недели нет")
begin
var n := Abs(ReadInteger('Введите целое число:'));
var yes := False;
var n1 := n mod 10;
n := n div 10;
while n > 0 do
begin
var n2 := n mod 10;
if n1 = n2 then
begin
yes := True;
break
end;
n := n div 10;
n1 := n2
end;
if yes then Print('Верно')
else Print('Неверно')
end.
А еще это можно решить, к примеру, так:
begin
var s := Abs(ReadInteger('Введите целое число:')).ToString;
if s.Pairwise.Any(t->t[0]=t[1]) then Print('Верно')
else Print('Неверно')
end.