program Phone;
var day:integer; time:real; week:array[1..7] of string;
begin
week[7]:='Воскресенье';
week[6]:='Суббота';
week[5]:='Пятница';
week[4]:='Четверг';
week[3]:='Среда';
week[2]:='Вторник';
week[1]:='Понедельник';
write('введите длительность разговора в минутах ');
readln(time);
write('введите номер дня недели ');
readln(day);
writeln(' alphaeus is thinking... ');
case day of
'1'..'5':
begin
writeln(week[day]);
writeln('Сумма без скидки - ', 2.3*time);
writeln('Сумма скидкой - ', 0.8*2.3*time);
writeln('Скидка не предоставляется');
end;
'6','7':
begin
writeln(week[day]);
writeln('Сумма без скидки - ', 2.3*time);
writeln('Сумма скидкой - ', 0.8*2.3*time);
writeln('Вам предоставлена скидка!');
end;
else writeln('вы ввели неправильный номер дня недели')
end;
writeln'');
end.
number = int(input("Введите натуральное число\n"))
d = int(input("Введите d\n"))
div_sum = even_sum = count = odd_count = even_count = greater_d = 0
print("a)")
for i in range(1, number+1):
if number % i == 0:
count += 1
print(f'{count} делитель числа -> {i} ')
div_sum += i
if i > d:
greater_d += 1
if i % 2 == 0:
even_sum += i
even_count += 1
else:
odd_count += 1
print("б)Сумма всех делителей ->", div_sum)
print("в)Сумма четных делителей ->", even_sum)
print("г)Количество делителей ->", count)
print("д)Количество нечетных делителей ->", odd_count)
print("е)Количество четных делителей ->", even_count)
print("ж)Количество делителей, больших d ->", greater_d)