Написать программу, которая бы по введенному номеру единицы измерения (1 - дециметр, 2 - километр, 3 - метр, 4 - миллиметр, 5 - сантиметр) и длине отрезка l выдавала бы соответствующее значение длины отрезка в метрах

группы клавиш на клавиатуре делятся по своему назначению:

1)алфавитно-цифровая группа - для ввода букв и цифр

2)группа клавиш-модификаторов - для изменения действий других клавиш ( shift,ctrl,alt)

3)   функциональная группа f1-f12

4)цифровая панель (цифры справа для бухгалтеров и операторов)

это основые  группы клавиш на клавиатуре, также могут быть кнопки для , звуком, компьютером..

for i : = 1 to length(s) do

begin

      res : = res + s[i];

      if i mod 2 = 0 then

            res : = res + s[i];

end;

writeln(res);

i : = pos(" ",s); {ищем первый пробел}

delete(s; i; 1); {удаляем первый пробел}

i : = pos(" ",s); {ищем второй пробел, котрый теперь первый}

writeln(s[i-1]); {выдаем знак который находится перед пробелом}

var a,b,c: array [1..100,1..100] of integer;

as,bs,cs,i,j: integer;

begin

  sb: =1;

  for i : = 1 to n do

        for j: = 1 to n do

        begin

            if a[i,j]< 0 then sa: =sa+a[i,j];

          if b[i,j]> 0 then sb: =sb*b[i,j];

            if j=3 then sc: =sc+c[i,j];

        end;

    writeln(sa,sb,sc);

end.

program obmen;

var a,b,c,x,y: integer;

begin

a: =x;

b: =a;

c: =b;

x: =c;

writeln (a,b,c)

end.