Question

Помогите!!)) Составить в программе Pascal. задачу: перевести килограммы в граммы.

Answer 1

var  a: real;
begin
  write('Введите количество килограмм:');
  read(a);
  write(a, ' килограмм = ', a * 1000, ' грамм');
end.