Переименовать, перемистить, удалить,сменить значок......
Текст программы на языке Python:
#!/usr/bin/env python
# encoding: utf-8
#def ocenki():
""" В спортивных соревнованиях 10 судей выставили свои оценки
спортсмену. Итоговая оценка определяется так: самая наибольшая и
самая наименьшая оценки из общей суммы удаляются (если таких оценок
несколько, то удаляется только одна из них), затем среди оставшихся
подсчитывается среднее арифметическое. Написать программу, которая
позволила бы по известным оценкам судей автоматически выставлять
итоговую оценку спортсмену."""
print "Задача 1."
# Введем 10 оценок судей в память
a = []
for i in range(10):
a.append(input("Очередная оценка спортсмену: "))
# Отсортируем оценки по возрастанию:
a.sort()
# Удалим из списка минимальную оценку
a.pop(0)
#Удалим максимальную оценку
a.pop(-1)
# Напечатаем на экране среднее арифметическое (оценку)
print "Оценка спортсмену: ",
print float(sum(a)) / len(a)
print "-"*30, "\n\n\nЗадача 2."
# Завершение работы
#def chisla():
""" Напишите программу поиска четырехзначного числа,
которое при делении на 133 дает в остатке 125,
а при делении на 134 дает в остатке 111."""
# Резервируем место для найденных чисел, при делении которых
# на 133 в остатке получается 125
a = []
# будем перебирать все множители от 0 до числа, которое при
# умножении на 133 даст 10000. Нам больше не надо.
for i in range(0, 10000/133):
# Добавим число, которое при делении на 133 дает в остатке 125
# в список
a.append(i * 133 + 125)
# В список попали трехзначные числа и, может быть, и пятизначные.
# Отфильтруем его, оставив в нем только четырехзначные
a = filter(lambda x: 999 < x < 10000, a)
# Теперь рассмотрим числа, которые при делении на 134 дают в
# остатке 111.
for i in range(0, 10000/134):
# Если нам попадется число, которое уже есть в списке а, то
# напечатаем его
if (i * 134 + 111) in a:
print i * 134 + 111
# Вот и всё. Программа завершила работу
В приложении результат работы программы
Ответ ясный и очень прост: иллюстрация
Желаю удачи:)
Язык программирования Pascal ABC
var n,k,i,j,d,c:integer;
label 1,2;
begin
1:writeln('Количество месяцев в календаре планеты Мульти:');
readln(n);
if (n>109)or(n<1) then
begin
writeln('Ошибка! Количество месяцев должно быть меньше или равно 109. Повторите ввод.');
goto 1;
end;
2:writeln('Номер дня на который приходится первое число первого месяца нового года:');
readln(k);
if (k>7)or(k<1) then
begin
writeln('Ошибка! Номер дня должен быть в диапозоне от 1 до 7. Повторите ввод.');
goto 2;
end;
d:=k;
for i:=1 to n do
begin
for j:=1+(k-1) to 30 do
begin
if (d=5)and(j=13) then c:=c+1;
d:=d+1;
if d>7 then d:=1;
end;
k:=1;
end;
writeln('Количество несчастливых дней в этом году: ',c);
end.
Var
a,b,i,i2:integer;
Begin
Readln(a);
b:=1;
for i:=1 to a do begin
if b mod 2 = 0 then b:=b+1;
for i2:=1 to b do if i2 mod 2 <>0 then Write(i2,' ');
b:=b+1;
Writeln();
end;
<span>End.</span>
