Решаем задачи Абрамян на Паскале. Case6

Case6. Единицы длины пронумерованы следующим образом: 1 — дециметр, 2 — километр, 3 — метр, 4 — миллиметр, 5 — сантиметр. Дан номер единицы длины (целое число в диапазоне 1–5) и длина отрезка в этих единицах (вещественное число). Найти длину отрезка в метрах.

Решение:

program Case6;
var
  N:Integer;
  L:Real;
begin
  Write('Введите номер единицы длинны: ');
  Readln(N);
  Write('Введите длинну отрезка: ');
  Readln(L);
  Case N of
    1: Writeln(L/10);
    2: Writeln(L*1000);
    3: Writeln(L);
    4: Writeln(L/1000);
    5: Writeln(L/100);
  end;
end.

program Case6;

var

N:Integer;

L:Real;

begin

Write('Введите номер единицы длинны: ');

Readln(N);

Write('Введите длинну отрезка: ');

Readln(L);

Case N of

1: Writeln(L/10);

2: Writeln(L*1000);

3: Writeln(L);

4: Writeln(L/1000);

5: Writeln(L/100);

end;

end.

Другие задачи из раздела Case можно посмотреть здесь.

Решаем задачи Абрамян на Паскале. Case6

Комментарии:

Добавить комментарий Отменить ответ