Question

Вася написал программу, которая переводит длину из метров в километры и метры. Но он не может решить, где нужно использовать div, а где mod. Помогите ему. Откройте файл и исправьте программу. var d, m, k: integer; begin write('введите d = '); readln(d); k:= d … 1000; m:= d … 1000; write(d, ' м = '); write(k, ' км ', m, ' м'); end.

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 м

Answer 2

Для перевода длины из метров в километры и метры, вам необходимо использовать операторы деления (div) и остатка (mod). Вот исправленная программа:

pascalCopy code
var
  d, m, k: integer;

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

  k := d div 1000;  // Делим на 1000, чтобы получить километры
  m := d mod 1000;  // Берем остаток от деления на 1000, чтобы получить метры

  write(d, ' м = ');
  write(k, ' км ', m, ' м');
end.

Теперь программа будет корректно переводить длину из метров в километры и метры.