uses crt;
var a:word;
b:real;
r:boolean;
g:char;
begin
clrscr;
writeln ('Выберите действие:');
writeln ('1:см-фут');
writeln ('2:см-дюйм');
writeln ('3:см-ярд');
writeln ('Введите число: ');
readln (a);
repeat
g:=readkey;
case g of
'1': b:=a/30.5;
'2': b:=a/2.54;
'3': b:=a/91;
else r:=false;
end;
until r;
writeln ('Ответ: ',b:10:20);
end.
Помогите пожалуйста задача на оператор case.
Нужно написать программу, которая в зависимости от введённого признака переводит сантиметры в футы(1 фут=30.5см), дюймы(1 дюйм=2.54см), ярды(1 ярд=91см).
Всё пойдёт:)