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

Для паскаль ABC

Question

Тася

31 декабря, 21:20

+5

Ответы (1)

Знаете ответ?

Рахиль · Answer 1

Var a:real;

begin

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

readln (a) ;

a:=a*1000/1066.8;

writeln (a) ;

end.

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