Решите 2 пример,. запишите свёрнутую запись этого числа.​

Вариант первый:

Var
   A:longint;
   n,p:integer;
   B:byte;
Begin
Write('Введите натуральное число: ');
ReadLn(A);
n:=0;
p:=0;
While A > 0 do
   Begin
   B:=A mod 10;
   if B = 0 then n:=n+1;
   if B = 5 then p:=p+1;
   A:=A div 10;
   End;
WriteLn('Количество нулей в числе: ',n);
WriteLn('Количество пятёрок в числе: ',p);
End.

Вариант второй:

Var
   A:string;
   n,p,i:integer;
Begin
Write('Введите натуральное число: ');ReadLn(A);
n:=0;
p:=0;
For i:= 1 to Length(A) do
    if A[i] = '0' then n:=n+1
       else if A[i] = '5' then p:=p+1;
WriteLn('Количество нулей в числе: ',n);
WriteLn('Количество пятёрок в числе: ',p);
End.

ответ:my_basket = {}

ware_1 = input("product name - ")

my_basket[ware_1] = int(input("value - "))

ware_2 = input("product name - ")

my_basket[ware_2] = int(input("value - "))

ware_3 = input("product name - ")

my_basket[ware_3] = int(input("value - "))

ware_4 = input("product name - ")

my_basket[ware_4] = int(input("value - "))

ware_5 = input("product name - ")

my_basket[ware_5] = int(input("value - "))

print('We bought these goods:')

print('ware -', my_basket.popitem())

print('ware -', my_basket.popitem())

print('ware -', my_basket.popitem())

print('ware -', my_basket.popitem())

print('ware -', my_basket.popitem())

print("Total cost -", total_cost)

Объяснение: