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

Для паскаль ABC

Question

Албин

7 февраля, 19:18

+3

Ответы (1)

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

Светуша · Answer 1

Var a:real;

begin

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

readln (a);

a:=a*1000/1066.8;

writeln (a);

end.

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