Опубликовано 22.08.2017 по предмету Информатика от Гость >> <<

Программа спрашивает вес некого объекта в килограммах, затем спрашивает, в какие единицы измерения перевести и делает это по выбору пользователя. (условный оператор)

Ответ оставил Гость

Var  s: string;  k: real;
begin 
write(Введите вес в килограммах ); 
Readln(k); 
Write(Во что хотите перевести (мгр, гр, Цн, Тн, КТн, МТн): ); 
Readln(s); 
case s of   
мгр: write(k, кг = , k * 1000000, мгр);   
гр: write(k, кг = , k * 1000, гр);   
Цн: write(k, кг = , k / 100, ц);   
Тн: write(k, кг = , k / 1000, Т);   
КТн: write(k, кг = , k / 1000000, Кт);   
МТн: write(k, кг = , k / 1000000000, Мт) 
Else write(Неправильно введена единица измерения); 
End;
end.