E7(16)+45(8)=231(10)+37(10)=<em><u>268(10)=10C(16)=414(8)</u></em>
Var
c:integer;
L,Lm:real;
begin
Writeln('Укажите код единицы измерения');
Write('(1- дм, 2- км, 3- м, 4- мм, 5- см): ');
Read(c);
Write('Укажите длину в выбранных единицах: ');
Read(L);
case c of
1:Lm:=L/10;
2:Lm:=L*1000;
3:Lm:=L;
4:Lm:=L/1000;
5:Lm:=L/100
end;
Writeln('Это составляет ',Lm,'м')
end.
Пример работы программы
Укажите код единицы измерения
(1- дм, 2- км, 3- м, 4- мм, 5- см): 4
Укажите длину в выбранных единицах: 126
Это составляет 0.126м
program raf105;
var x,y,z:integer;
begin
x:=random(10,99);
writeln('Компьютер выбрал число ',x);
y:=random(1,9);
writeln('Компьютер выбрал число ',y);
z:= x mod 10;
x:= (x-z)*10;
z:= (x+z)+y*10;
writeln('Компьютер переместил второе число в середину первого. Результат: ',z);
end.