Question

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

Answer 1

var a:longint; 
b:string; 
begin 
writeln('Введите длину'); 
readln(a); 
writeln('Введите единицы измерения (метры/дециметры и т.д.)'); 
readln(b); 
if b='метры' then writeln(a, ' метров') 
else if b='дециметры' then writeln(a/10, ' метров') 
else if b='километры' then writeln(a*1000, ' метров') 
else if b='миллиметры' then writeln(a/1000, ' метров'); 
end.