Сравни показанные ниже датчики цвета и касания определи их сходства и различия

program sir; var y,x,h: real; beginx: =280; h: =0.1; while h< =1 do  begin  y: =x*h;   writeln('цена за ',h*1000,' грамм ',y,' руб');   h: =h+0.1  end; end.

если хотим получить универсальное решение

1 сначала составляем таблицу или запись или как угодно назовите - набор связаных между собой данных определенных типов (зависит от языка программирования)

одна запись таблицы имеет

  first_row

  last_row

  ticket_cost

  sits_in_row

2 заполняем таблицу любым удобным нам способом

3 делаем нужные нам рассчеты

для каждой записи таблицы

  s: =s + (last_row - first_row + 1) * sits_in_row * ticket_cost

4 делаем вывод результата любым удобным нам способом

var n,count,sum: integer;

begin

    read(n);

    count: =0;

    sum: =0;

    while (n< > 0) do

        inc(count);

        sum: =sum+(n mod 10);

        n: =n div 10;

    end

end.

program dl9_aniasss;

var c: real;

begin

writeln ('vvedit c');

readln (c);

c: =c*2;

writeln (c,'*2=',c);

readln

end.