Question

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

Answer 1

program G1;

var

a:real;

begin

writeln('Сколько килограмм?');

readln(a);

a:=a*1000;

writeln('Это ',a,' грамм')

end.