Question

Дана масса в граммах. Переведите её в килограммы и граммы с помощью программ PascalABC.Тема Реализация алгоритмов работы с целочисленными данными.

Answer 1

Ответ:

Program Test; 

Var MasG, MasKg: real; 

Begin 

Write('Введите массу (в граммах): '); 

Readln(MasG); 

Writeln(); 

Writeln(MasG, ' грамм = ', MasG, ' грамм'); 

MasKg := MasG / 1000; 

Writeln(MasG, ' грамм = ', MasKg, ' килограмм'); 

Answer 2

Для перевода массы из граммов в килограммы и граммы с помощью программы на PascalABC, вы можете использовать следующий код:

pascalCopy code
program MassConverter;

var
  massInGrams, kilograms, grams: integer;

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

  kilograms := massInGrams div 1000; // Переводим граммы в килограммы
  grams := massInGrams mod 1000;     // Остаток - это количество грамм

  writeln('Масса в килограммах: ', kilograms);
  writeln('Масса в граммах: ', grams);
end.

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