Примечание:
True - залежались
False - незалежались
sckid - указывать скидку в 10 (по умолчание 0.5)
Код:
skid = 0.5 #Скидка 50% пол цены
item = {
"Молоко": [200.0, True],
"Хлеб": [25.0, False],
"Рыба": [225.0, True],
"Колбаса": [140.0, False],
"Яблоко": [40.0, True]
}
def price_print():
ls = list(item)
ls2 = list(item.values())
for x in range(len(ls)):
print('Товар: ' + str(ls[x]), str(ls2[x][0]) + 'р')
print('\n')
def price_auto():
ls = list(item)
ls2 = list(item.values())
for x in range(len(ls)):
if ls2[x][1] == True:
ls2[x][0] *= skid
price_auto()
price_print()
Объяснение:
фішинг (англ. phishing від fishing «рибний лов, вивужування»[1]) — вид інтернет-шахрайства, метою якого є отримання доступу до конфіденційних даних користувачів — логінів та паролів. Це досягається шляхом проведення масових розсилок електронних листів від імені популярних брендів, а також особистих повідомлень усередині різних сервісів, наприклад від імені банків або всередині соціальних мереж. У листі часто міститься пряме посилання на сайт, що зовні не відрізняється від сьогодення, або на сайт з редиректом. Після того як користувач потрапляє на підроблену сторінку, шахраї намагаються різними психологічними прийомами спонукати користувача ввести на підробленій сторінці свої логін та пароль, які він використовує для доступу до певного сайту, що дозволяє шахраям отримати доступ до акаунтів та банківських рахунків.
Спам (англ. spam) - масове розсилання кореспонденції рекламного характеру особам, які не висловлювали бажання її отримати. Розповсюджувачів спаму називають спамерами.
У загальноприйнятому значенні термін «спам» російською вперше став вживатися стосовно розсилки електронних листів. Не за і повідомлення в системах миттєвого обміну повідомленнями (наприклад, ICQ) звуться SPIM (англ.)рус. (Англ. Spam over IM).
3
program z3;
procedure S(n: integer);
var i:integer;
begin
for i:=1 to n do writeln('A')
end;
var n:integer;
begin
read(n);
S(n)
end.
4
program z4;
function m(a,b: integer):integer;
begin
if a>b then m:=b else m:=a
end;
var a,b,c:integer;
begin
read(a,b,c);
writeln(m(m(a,b),c))
end.
Объяснение:
4. Ввод целых данных через пробел