Напишите программу, которая в последовательности натуральных чисел находит среднее арифметическое двузначных чисел или сообщает, что таких чисел нет. программа получает на вход натуральные числа, количество введённых чисел неизвестно, последовательность заканчивается числом 0 (0 – признак окончания ввода, не является членом последовательности количество чисел не превышает 100. введённые числа не превышают 300. программа должна вывести среднее арифметическое двузначных чисел или вывести no, если таких чисел в последовательности нет.

PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018
Внимание! Если программа не работает, обновите версию!

begin
  var r:=ReadSeqIntegerWhile(t->t<>0).Where(t->t.Between(10,99))
      .DefaultIfEmpty.Average;
  (r>0 ? r.ToString : 'No').Println
end.

Замечание. Так как количество вводимых чисел заранее не известно, то откроем бесконечный цикл со всегда верным условием True, но как только будет введено число 0, остановим цикл командой break.

Программа:

program z;
var k,s,x:integer;
begin
k:=0;              {начальное значение количества двузначных чисел}
s:=0;              {начальное значение суммы двузначных чисел}
while True do  {открываем бесконечный цикл}
begin
readln(x);        {вводим число х}
if x=0 then break;  {если введенное число равно 0, то остановить цикл}
if (x>9)and(x<100) then  {если число двузначное, т.е. от 10 до 99} 
    begin 
    k:=k+1;         {количество увеличиваем на 1}
    s:=s+x;         {увеличиваем предыдущее значение суммы на число х}
    end;
end;
if k=0 then writeln('NO')  {если двузначных чисел не было, то вывод NO}
   else writeln(s/k);          {иначе вывод ср.арифметического}
end.

Примечание:

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).