Перевести длину данного отрезка в метрическую систему, то есть в метры, сантиметры и миллиметры
Категория: Delphi/Pascal
2011-08-21 11:04:00
code: #pascal
- program z_Inch_Meter;
- uses crt;
- var Inch,Meter,Centimetr,Millimeter:real;
- begin
- clrscr;
- writeln('Введите длину в дюймах');
- readln(Inch);
- Meter : = trunc(Inch * 2.54 / 100);
- Centimetr : = trunc(Inch * 2.54 - Meter * 100);
- Millimeter : = (Inch * 2.54 - Meter * 100 - Centimetr) * 10;
- write(Meter:0:0,' м ',Centimetr:0:0,' см ',Millimeter:0:1,' мм');
- readln;
- end.
Поделиться: