Задать вопрос
25 ноября, 22:22

1) Дана масса в граммах. переведите её в килограммы и граммы.

+4
Ответы (1)
  1. 25 ноября, 23:05
    0
    Program Test;

    Var MasG, MasKg: real;

    Begin

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

    Readln (MasG) ;

    Writeln () ;

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

    MasKg : = MasG / 1000;

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

    End.
Знаете ответ?
Сомневаетесь в ответе?
Найдите правильный ответ на вопрос ✅ «1) Дана масса в граммах. переведите её в килограммы и граммы. ...» по предмету 📘 Информатика, а если вы сомневаетесь в правильности ответов или ответ отсутствует, то попробуйте воспользоваться умным поиском на сайте и найти ответы на похожие вопросы.
Смотреть другие ответы