Дано текст, серед силволів якого є принаймні одна кома. знайти номер першої по порядку коми(пайтон) скласти програму​

1)

2) 3 единицы

3) 24D

4) 6

5) 2 раза

Объяснение:

2)

3) Переводим число в 16-ичную систему счисления, для этого делим его на 16 и запоминаем остаток. Затем результат деления также делим на 16 и запоминаем остаток. Повторяем эти действия до тех пор, пока частное не будет равно 0:

589 : 16 = 36, остаток 13

36 : 16 = 2, остаток 4

2 : 16 = 0, остаток 2

Затем записываем остатки от деления в обратном порядке: 2 4 13

Заменяем числа больше 9 на буквы

(10 - A; 11 - B; 12 - C; 13 - D; 14 - E; 15 - F)

Результат:

4)

5) Посчитаем от 1 до 10 в  6-ичной системе счисления:

1 2 3 4 5 10 11 12 13 14

1. 

program HelloWorld;
var i: integer;
var a,b,s: double; //a - выручка за день, b - план за день, s - зарплата всего

begin

    s:=0;
    for i:= 1 to 28 do
    begin
     write('День '); write(i); writeln(': ');
     writeln('Введите значение ежедневной выручки:');
     readln(a);
     writeln('Введите значение ежедневного плана:');
     readln(b);   

     if a>b then
     begin
      a:= a+a*0.2;
      end
     else a:= 1500;   

     s:= s + a;

  end;

 write('Зарплата составила: ');
writeln(s:15:2);

end.

2.

program HelloWorld;

var i: integer;

var a,s: double; //s - итого в процентах, a - еда в граммах

begin

    s:=0;

    for i:= 1 to 28 do

    begin

     write('День '); write(i); writeln(': ');

     writeln('Укажите сколько грамм съедено:');

     readln(a);

    

     if a>100 then

     begin

      s:= s+3;

      end

     else s:= s+2;

   

    end;

 

    write('Подрос на (%): ');

    writeln(s:15:2);

 end.

3.

program HelloWorld;

var i: integer;

var a,b,s: double; //a - время в воде в день, b - время на суше в день, s - пройденный путь

begin

    s:=0;

    for i:= 1 to 7 do

    begin

     write('День '); write(i); writeln(': ');

     writeln('Укажите время в воде:');

     readln(a);

     writeln('Укажите время на суше:');

     readln(b);

     s:= s+(a*80 + b*20);

    end;

    write('Пройденный путь: ');

    writeln(s:15:2);

end.