Напишите программу пересчёта расстояния их километров в вёрсты (1 верст = 1066,8 м).

Для паскаль ABC

Question

Маркеллина

11 июня, 07:29

+2

Ответы (1)

Знаете ответ на вопрос?

Дарюха · Answer 1

Var a:real;

begin

writeln ('Введите расстояние в километрах') ;

readln (a) ;

a:=a*1000/1066.8;

writeln (a) ;

end.

Напишите программу пересчёта расстояния их километров в вёрсты (1 верст = 1066,8 м).Для паскаль ABC