Задание:
Пользователь вводит расстояние выраженное в милях нужно перевести это расстояние в км (1 миля=1,6 км)
Решение:
program qwerty; uses crt; var a: real; beginclrscr; writeln ('Введите количество миль'); readln (a); a: =a*1,6; writeln ('Кол-во киллометров — ',a: 2:2); readkey; end.
Знаете другой ответ?