Найти массу тела в килограммах

29.03.2011, 10:13. **Показов** 3664. **Ответов** 1

Author24 — интернет-сервис помощи студентам

Единицы массы пронумерованы следующим образом: 1 - килограмм, 2 - мг, 3 - грамм, 4 - тонна, 5 - центнер. Дано номер единицы массы (целое число в диапазоне 1-5) и масса тела в этих единицах (вещественное число). Найти массу тела в килограммах.
ПрослухатиЧитати фонетично

@Anwen · 29.03.2011, 21:14

Pascal

var
m:real;
n:integer;
begin
Writeln('Введите массу в килограммах');
Readln(m);
Writeln('Введите номер единицы массы');
Readln(n);
case n of
2:writeln ('Масса в миллиграммах= ',m*10000);
3:writeln ('Масса в граммах= ',m*1000);
1:writeln ('Масса в килограммах= ',m);
5:writeln ('Масса в центнерах= ',m/100);
4:writeln ('Масса в тоннах= ',m/1000)
Else Writeln('Данная единица отсутствует'); end;
Readln;
End.

Stanislavdid
		1
	Найти массу тела в килограммах 29.03.2011, 10:13. Показов 3664. Ответов 1 Метки нет (Все метки) Единицы массы пронумерованы следующим образом: 1 - килограмм, 2 - мг, 3 - грамм, 4 - тонна, 5 - центнер. Дано номер единицы массы (целое число в диапазоне 1-5) и масса тела в этих единицах (вещественное число). Найти массу тела в килограммах. ПрослухатиЧитати фонетично

	29.03.2011, 21:14

Найти массу тела в килограммах

Решение