Пара задач по программированию.
1. Написать программу, которая по вводимому номеру единицы измерения (1-дециметр, 2-километр, 3-метр, 4-миллиметр, 5-сантиметр) и длине отрезка L выдавала бы соответствующее значение длины отрезка в метрах. Использовать оператор варианта.
2. Известно, сколько секунд прошло с начала суток. Определить, сколько полных часов и сколько полных минут прошло к этому моменту. Ответ вывести в грамматически правильной форме. Использовать оператор варианта.
P.S. Обе задачи нужно решить на языке Паскаль.
Заранее всем огромное спасибо за помощь!

  • var
    c: integer;
    l, r: real;
    begin
    writeln('единица измерения');
    writeln(' 1 - дециметр');
    writeln(' 2 - километр');
    writeln(' 3 - метр');
    writeln(' 4 - миллиметр');
    writeln(' 5 - сантиметр');
    write('? ');
    readln(c);
    write('длина отрезка? ');
    readln(l);
    case c of
    1: r := l * 0.1;
    2: r := l * 1000;
    3: r := l;
    4: r := l * 0.001;
    5: r := l * 0.01;
    end;
    writeln('длина отрезка в метрах: ', r:0:3);
    end.
  • Стучи в агент.