Дан номер единицы длины (целое число в диапазоне 1–5) и длина отрезка в этих единицах (вещественное число). Найти длину отрезка в метрах
Категория: Delphi/Pascal
2011-12-12 23:50:57
Единицы длины пронумерованы следующим образом:
1 — дециметр,
2 — километр,
3 — метр,
4 — миллиметр,
5 — сантиметр.
code: #pascal
Program Case6; Var x:Integer; Leng:Real; Begin WriteLn('Введите длину:'); ReadLn(Leng); ReadLn(x); Case x Of 1:WriteLn(Leng,' дециметров = ',Leng/10,' метров'); 2:WriteLn(Leng,' километров = ',Leng*1000,' метров'); 3:WriteLn(Leng,' метров = ',Leng,' метров'); 4:WriteLn(Leng,' миллиметров = ',Leng/1000,' метров'); 5:WriteLn(Leng,' сантиметров = ',Leng/100,' метров'); End; End.
автор: Sergej a.k.a. S9
Поделиться: