Пользователь вводит вес в фунтах, а программа переводит его в килограммы и граммы. Один русский фунт равен 409.5 гр.
Решение:
1
2 3 4 5 6 7 8 9 |
program line_12;
uses crt; var f: real; begin clrscr; write(‘Фунты > ‘); readln(f); write(f:4:2,‘ фунт = ‘, f*409.5/1000:5:3, ‘ кг = ‘, f*409.5:5:3, ‘ гр’); readkey; end. |