Advertisement
Guest User

Untitled

a guest
Feb 17th, 2020
81
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Pascal 0.71 KB | None | 0 0
  1. program task;
  2.  
  3. var u, m: Integer;
  4.  
  5. begin//начало
  6.   readln(u, m);//ЧИТАЕМ u - 1-килограмм,2-миллиграмм,3-грамм,4-тонна,5-центнер; m - массе
  7.   case u of//чекаем u
  8.      1 : write(m);//если u = 1 - выводим m;
  9.      2 : write(m/1000000);//если u = 1 - выводим m/1000000;  1кг = 1000000 мг
  10.      3 : write(m/1000);//если u = 1 - выводим m/1000; 1кг = 1000г
  11.      4 : write(m*1000);//если u = 1 - выводим m*1000; 1тонна = 1000кг
  12.      5 : write(m*100);//если u = 1 - выводим m*100;  1центнер = 100кг
  13.   end;//конец чекера
  14. end.//конец программы
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement