Ученики на праздник купили конфеты и печенье. Известны цены конфет и печенья, а также вес закупленных сладостей каждого вида. Создайте программу для нахождения полной стоимости покупки. Информатика, приложение Payton​

< ! doctype html>

< html lang="ru">

< head>

    < title> таблица 7х10< /title>

    < meta charset="utf-8">

< /head>

< body>

  < style>

    table
{border-collapse: collapse; }

    td {border: 1px solid black; padding: 3px; }

  < /style>

  < table>

    < tr>

      < td> ***< /td> < td> ***< /td> < td>
***< /td> < td> ***< /td> < td> ***< /td> < td> ***< /td> < td> ***< /td>

    < /tr>

    < tr>

      < td> ***< /td> < td> ***< /td> < td>
***< /td> < td> ***< /td> < td> ***< /td> < td> ***< /td> < td> ***< /td>

    < /tr>

    < tr>

      < td> ***< /td> < td> ***< /td> < td>
***< /td> < td> ***< /td> < td> ***< /td> < td> ***< /td> < td> ***< /td>

    < /tr>

    < tr>

      < td> ***< /td> < td> ***< /td> < td>
***< /td> < td> ***< /td> < td> ***< /td> < td> ***< /td> < td> ***< /td>

    < /tr>

    < tr>

      < td> ***< /td> < td> ***< /td> < td>
***< /td> < td> ***< /td> < td> ***< /td> < td> ***< /td> < td> ***< /td>

    < /tr>

    < tr>

      < td> ***< /td> < td> ***< /td> < td>
***< /td> < td> ***< /td> < td> ***< /td> < td> ***< /td> < td> ***< /td>

    < /tr>

    < tr>

      < td> ***< /td> < td> ***< /td> < td>
***< /td> < td> ***< /td> < td> ***< /td> < td> ***< /td> < td> ***< /td>

    < /tr>

    < tr>

      < td> ***< /td> < td> ***< /td> < td>
***< /td> < td> ***< /td> < td> ***< /td> < td> ***< /td> < td> ***< /td>

    < /tr>

    < tr>

      < td> ***< /td> < td> ***< /td> < td>
***< /td> < td> ***< /td> < td> ***< /td> < td> ***< /td> < td> ***< /td>

    < /tr>

    < tr>

      < td> ***< /td> < td> ***< /td> < td>
***< /td> < td> ***< /td> < td> ***< /td> < td> ***< /td> < td> ***< /td>

    < /tr>

  < /table>

< /body>

< /html>

1:

var n,k,s: integer;

begin

s: =0;

readln(n,k);

n: =abs(n);

while n> 0 do begin

if (n mod 10=k) then

s: =s+1;

n: =n div 10;

end;

writeln(s);

end.

2:

var n: integer;

s: string;

begin

readln(n);

s: =inttostr(n);

if (s[1]=s[length(s)]) then

writeln('да') else

writeln('нет');

end.

3:

var n,p,s,k: integer;

begin

readln(n);

p: =1;

s: =0;

k: =0;

while n> 0 do begin

p: =p*(n mod 10);

s: =s+(n mod 10);

k: =k+1;

n: =n div 10;

end;

writeln('количество цифр = ',k);

writeln('сумма цифр = ',s);

writeln('произведение цифр = ',p);

end.