Новые сообщения · Правила  
  • Страница 1 из 1
  • 1
Модератор форума: Berestovskiy  
Форум ПРОГРАММИСТОВ » ПРОГРАММИРОВАНИЕ » Паскаль » задача)) (паскаль)
задача))
Написать программу которая бы по введенному номеру единицы измерения (1-килограм 2-милиграм 3-грамм 4-тонна 5- центнер) и массе М выдавала бы соответсвующие значения массы в килограммах.
1 | Автор: crocop | 2012-05-23, 11:11   |  Репутация: [ + 1 ]
var
a,m:integer;
begin
readln(a);
read(m);
if a=1 then writeln(m);
if a=2 then writeln(m*1000000);
if a=3 then writeln(m*1000);
if a=4 then writeln(round(m/1000));
if a=5 then writeln(round(m/10));
end.

"Спасибо" принимается в виде повышения репутации ( Зелёный плюсик:) ).Спасибо


Нужна помощь? Сюда: vkontakte.ru/berestovskiy
2 | Автор: Berestovskiy | 2012-05-23, 12:40   |  Репутация: [ + 211 ]
Форум ПРОГРАММИСТОВ » ПРОГРАММИРОВАНИЕ » Паскаль » задача)) (паскаль)
  • Страница 1 из 1
  • 1
Поиск: