Пожаловаться
- 13.06.2017 15:15
- Информатика
- remove_red_eye 9466
- thumb_up 39
Ответы и объяснения 1
Program Test;
Var MasG, MasKg: real;
Begin
Write('Введите массу (в граммах): ');
Readln(MasG);
Writeln();
Writeln(MasG, ' грамм = ', MasG, ' грамм');
MasKg := MasG / 1000;
Writeln(MasG, ' грамм = ', MasKg, ' килограмм');
End.
Var MasG, MasKg: real;
Begin
Write('Введите массу (в граммах): ');
Readln(MasG);
Writeln();
Writeln(MasG, ' грамм = ', MasG, ' грамм');
MasKg := MasG / 1000;
Writeln(MasG, ' грамм = ', MasKg, ' килограмм');
End.
Пожаловаться
- 14.06.2017 18:09
- thumb_up 42
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.
Новые вопросы
Интересные вопросы