Question

Составьте алгоритм для нахождения количества полных тон, килограммов, граммов, при данной массе M в граммах. Программу нужно написать на языке паскаль

Answer 1

7777777777777777777777777

Answer 2

Конечно, вот алгоритм на языке Pascal, который поможет вам найти количество полных тонн, килограммов и граммов, исходя из заданной массы M в граммах:

pascalCopy code
program MassConverter;

var
  M, tons, kilograms, grams: Integer;

begin
  // Ввод массы M в граммах
  writeln('Введите массу в граммах: ');
  readln(M);

  // Преобразование массы
  tons := M div 1000000;     // Количество тонн (1 тонна = 1 000 000 грамм)
  kilograms := (M mod 1000000) div 1000;  // Количество килограммов (1 килограмм = 1000 грамм)
  grams := (M mod 1000000) mod 1000;      // Количество граммов

  // Вывод результата
  writeln('Количество тонн: ', tons);
  writeln('Количество килограммов: ', kilograms);
  writeln('Количество граммов: ', grams);
end.

Программа запрашивает у пользователя ввод массы в граммах и затем выполняет деление и взятие остатка для преобразования массы в тонны, килограммы и граммы. Затем результат выводится на экран.