Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- program task;
- var u, m: Integer;
- begin//начало
- readln(u, m);//ЧИТАЕМ u - 1-килограмм,2-миллиграмм,3-грамм,4-тонна,5-центнер; m - массе
- case u of//чекаем u
- 1 : write(m);//если u = 1 - выводим m;
- 2 : write(m/1000000);//если u = 1 - выводим m/1000000; 1кг = 1000000 мг
- 3 : write(m/1000);//если u = 1 - выводим m/1000; 1кг = 1000г
- 4 : write(m*1000);//если u = 1 - выводим m*1000; 1тонна = 1000кг
- 5 : write(m*100);//если u = 1 - выводим m*100; 1центнер = 100кг
- end;//конец чекера
- end.//конец программы
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement