Ответы
Ответ дал:
0
Вроде так, если только при переводе напутал
Pascal
var
a : real;
c : integer;
begin
writeln ('1 - дм');
writeln ('2 - км');
writeln ('3 - м');
writeln ('4 - мм');
writeln ('5 - см');
readln (c);
readln (a);
case c of
1 : a := a * 0.1;
2 : a := a * 1000; //Три нет так как число не меняется
4 : a := a * 0.001;
5 : a := a * 0.01;
end;
writeln (a,'м');
end.
Pascal
var
a : real;
c : integer;
begin
writeln ('1 - дм');
writeln ('2 - км');
writeln ('3 - м');
writeln ('4 - мм');
writeln ('5 - см');
readln (c);
readln (a);
case c of
1 : a := a * 0.1;
2 : a := a * 1000; //Три нет так как число не меняется
4 : a := a * 0.001;
5 : a := a * 0.01;
end;
writeln (a,'м');
end.
Вас заинтересует
1 год назад
6 лет назад
6 лет назад
9 лет назад
9 лет назад
9 лет назад
9 лет назад