?>
Лучшее лакомство Напишите функцию best_treat(), которая преобразует несъедобные слова в лакомства. Функция принимает произвольное число аргументов строк и произвольное количество именованных параметров из списка: to_upper - кортеж из букв, которые нужно привести к верхнему регистру, если они есть в слове; replace - кортежиз двухиндексов букв, которые нужно поменять местами, если оба индекса есть в слове; to_reverse - если аргумент передан и имеет значение True, то слово после всех преобразований нужно перевернуть в обратном порядке. Функция возвращает список преобразованных строк в исходном порядке. Пример 1 Ввод data - ['pmsma', ''sgfro', 'yropeils', 'sdzaril'] conditions - J'te_upper': ('a', 's'), 'replace': (2, 4), "to_reverse": True) print("best_treat("data, "*conditions))
Ответы
//PascalABC.NET
uses GraphABC;
var c: integer;
begin
window.IsFixedSize := true;//запрет изменения размера экрана
window.Clear(cllightblue);//очистка экрана синим цветом
pen.Color := clred;//меняем цвет пера на красный
for var i := 0 to 19 do//цикл для отрисовки линий
begin
c := (window.Height div 19) * i;//сдвиг линнии по y
line(0, 0 + c, window.Width, window.Height - c);//рисуем линию
end;
end.
Объяснение:
uses graphabc;
begin
circle(50,50,50);
circle(50,50,20);
circle(150,50,50);
circle(150,50,20);
circle(250,50,50);
circle(250,50,20);
circle(350,50,50);
circle(350,50,20);
circle(450,50,50);
circle(450,50,20);
circle(550,50,50);
circle(550,50,20);
end.