Цитата:
Сообщение от Anton5475
нет( вводятся метры. потом с клавиатуры указывается в какую единицу измерения перевести
|
Ну так же знание тригонометрии не требуется для выполнения этого задания! Это же
элементарно!
Uses Crt;
var: a,b,c,d,e :real;
begin
WriteLn ('Введите длину в метрах')
ReadLn (a);
b:=a*1000;
c:=a*100;
d:=a*10;
e:=a/1000;
WriteLn ('Длина в миллиметрах ' ,a, ' будет составлять ' b);
WriteLn ('Длина в сантиметрах ' ,a, ' будет составлять ' с);
WriteLn ('Длина в дециметрах ' ,a, ' будет составлять ' d);
WriteLn ('Длина в километрах ' ,a, ' будет составлять ' e);
end.
ВСЁ.