Задание:
Перевести длину, заданную в дюймах, в сантиметры (10 дюймов=254 мм).
Решение:
Program Perevod; Uses Crt; const c=2,54; // 1 дюйм — 2,54 сантиметра var d,r: real; begin clrscr; write ('Введите длину в дюймах: '); readln (d); r: =c*d; writeln ('Длина в сантиметрах равна: ',r); readkey; end.
Знаете другой ответ?