Дана таблица "счет к оплате"

Определите формат ячеек В4:В10.

  v=331+0,6*(-35)=310 м/c

v=331+0,6*30=349 м/c

var

i: integer;

a: array[1..20] of integer;

function fn(x: integer): integer;

begin

if x mod 10 = 4 then fn: =x div 2

else fn: =x;

end;

begin

for i: =1 to 20 do

readln(a[i]);

for i: =1 to 20 do

begin

a[i]: =fn(a[i]);

writeln(a[i]);

end;

end.

1)

германия берлин

греция афины

испания мадрид

польша варшава

франция париж

2)

греция афины

германия берлин

польша варшава

испания мадрид

франция париж

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

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 делаем вывод результата любым удобным нам способом