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м
Насколько я понимаю, это комплекс интернет - услуг.
Управлять можно: живыми существами, техническими средствами, самим собой
Var
a:array[1..10] of integer;
i:integer;
begin
for i:=1 to 10 do
begin
readln(a[i]);
if a[i]<0 then a[i]:=abs(a[i]);
end;
for i:=1 to 10 do
writeln(a[i]);
end.