Пользователь вводит расстояние выраженное в милях нужно перевести это расстояние в км(1 миля=1,6км)
Ответ
1
program qwerty;
uses crt;
var a:real;
begin
clrscr;
writeln('Введите количество миль');
readln(a);
a:= a*1.6;
writeln('Кол-во киллометров - ',a:2:2);
readkey;
end.
Ответ
1
Программа на Паскале:
Program xxx;
Var a, b:real;
Begin
writeln('Введите количество миль');
readln(a);
b:= a*1.6;
writeln('Кол-во киллометров - ',b)
End.