Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 18.01.2016, 17:35   #1
АнтонМинин2016
Новичок
Джуниор
 
Регистрация: 18.01.2016
Сообщений: 2
По умолчанию помогите решить Паскаль

Единицы объема пронумерованы следующим образом: 1 - литр, 2 - миллилитр, 3 - декалитр, 4 - кубометр. Дан номер единицы объема и объем тела V в этих единицах. Вывести объем данного тела в литрах.
АнтонМинин2016 вне форума Ответить с цитированием
Старый 18.01.2016, 17:47   #2
min@y™
Цифровой кот
Старожил
 
Аватар для min@y™
 
Регистрация: 29.08.2014
Сообщений: 7,656
По умолчанию

А вопрос-то где?
Расскажу я вам, дружочки, как выращивать грибочки: нужно в поле утром рано сдвинуть два куска урана...
min@y™ вне форума Ответить с цитированием
Старый 18.01.2016, 17:51   #3
АнтонМинин2016
Новичок
Джуниор
 
Регистрация: 18.01.2016
Сообщений: 2
По умолчанию

Это такое задание и есть!
АнтонМинин2016 вне форума Ответить с цитированием
Старый 18.01.2016, 18:00   #4
min@y™
Цифровой кот
Старожил
 
Аватар для min@y™
 
Регистрация: 29.08.2014
Сообщений: 7,656
По умолчанию

Цитата:
Это такое задание и есть!
я это понимаю.
но вопрос-то где? Написал "помогите решить", значит что-то не получается.
чем помочь-то?

Вариант "напиши мне лабу целиком" недопустим.
Расскажу я вам, дружочки, как выращивать грибочки: нужно в поле утром рано сдвинуть два куска урана...
min@y™ вне форума Ответить с цитированием
Старый 18.01.2016, 18:47   #5
Dvoishnik
Форумчанин
 
Регистрация: 12.02.2011
Сообщений: 808
По умолчанию

Код:
var
 i:byte;
 obem:Longint;
begin
 Writeln('введите объем');
 readln(obem);
 Writeln('введите номер единици измерения'); 
 readln(i);
 Case i of 
 1: Writeln(obem);
 2: Writeln(obem/1000:2);
 3: Writeln(obem*10);
 4: Writeln(obem*1000);
 end;
 readln;
end.
а я добрый сегодня, почти)
Терпение!Дежурный экстрасенс скоро свяжется с вами!
Dvoishnik вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Паскаль. Помогите решить! Turanga Lila Помощь студентам 4 08.03.2015 01:15
Помогите Решить задачу на Паскаль RAVEN23 Помощь студентам 2 04.06.2009 16:46