Предмет: Информатика,
автор: DonFlou
Единицы массы пронумерованы таким образом : 1 - килограммы, 2- миллиграмма, 3- грамм, 4- тонна, 5- центнер. Дано номер единицы массы и массу тела в М этих единицах (Действующее число). Вывести массу данного тела килограммах.
Ответы
Автор ответа:
0
1000, 20000, 1000, 10000, 100000
Автор ответа:
1
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;
DonFlou:
Благодарю
Похожие вопросы
Предмет: Математика,
автор: Tair334
Предмет: Физика,
автор: eerhbjh
Предмет: История,
автор: rorever
Предмет: Математика,
автор: kata79587