program ConvertCMtoInch; var x, inches: real; begin write('Введите значение в сантиметрах: '); readln(x); inches := x / 2.54; writeln('Результат перевода в дюймы: ', inches:0:2); end.
Пример работы программы:
Введите значение в сантиметрах: 20 Результат перевода в дюймы: 7.87
var
x, inches: real;
begin
write('Введите значение в сантиметрах: ');
readln(x);
inches := x / 2.54;
writeln('Результат перевода в дюймы: ', inches:0:2);
end.
Пример работы программы:
Введите значение в сантиметрах: 20Результат перевода в дюймы: 7.87