Вася написал программу, которая переводит длину из метров в километры и метры. Но он не может решить, где нужно использовать div, а где mod. Помогите ему. Откройте файл и исправьте программу.

var d, m, k: integer;

begin

write ('введите d = ') ;

readln (d) ;

k: = d ... 1000;

m: = d ... 1000;

write (d, ' м = ') ;

write (k, ' км ', m, ' м') ;

end.

Question

Информатика

Соломон

29 октября, 03:46

Вася написал программу, которая переводит длину из метров в километры и метры. Но он не может решить, где нужно использовать div, а где mod. Помогите ему. Откройте файл и исправьте программу.

var d, m, k: integer;

begin

write ('введите d = ') ;

readln (d) ;

k: = d ... 1000;

m: = d ... 1000;

write (d, ' м = ') ;

write (k, ' км ', m, ' м') ;

end.

+3

Ответы (1)

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

Витяша · Answer 1

var d, m, k: integer;

begin

write ('введите d = ') ;

readln (d) ;

k: = d div 1000;

m: = d mod 1000;

write (d, ' м = ') ;

write (k, ' км ', m, ' м') ;

end.

Пример:

введите d = 1200

1200 м = 1 км 200 м