Единицы массы пронумерованы таким образом : 1 - килограммы, 2- миллиграмма, 3- грамм, 4- тонна, 5- центнер. Дано номер единицы массы и массу тела в М этих единицах (Действующее число). Вывести массу данного тела килограммах.
Ответы
Ответ дал:
0
1000, 20000, 1000, 10000, 100000
Ответ дал:
0
var
ed, m: Integer;
kg: Real;
begin
Write('Введите № единицы массы (1-кг, 2-мг, 3-гр, 4-тонна, 5-центнер): ');
Readln(ed);
if not (ed in [1..5]) then begin
Writeln ('Ошибка ввода номера для единицы массы!');
Exit;
end;
Write('Введите массу в этих единицах: ');
Readln(m);
kg := 0;
case ed of
1: kg := m;
2: kg := m / 1000000;
3: kg := m / 1000;
4: kg := m * 1000;
5: kg := m * 100;
end;
WriteLn ('Масса = ' + FloatToStr(Kg) + ' кг.');
end;
Ответ дал:
0
Благодарю
Вас заинтересует
1 год назад
2 года назад
2 года назад
7 лет назад
8 лет назад
8 лет назад