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

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

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

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

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

Ответ
 
Опции темы Поиск в этой теме
Старый 24.02.2017, 10:07   #1
Jenee
Пользователь
 
Регистрация: 24.02.2017
Сообщений: 20
Вопрос В школе N уроков, по длительности M минут, перемены длятся по P минут. Выведите на экран, что будет через L минут после начала занятий в школе

В школе N уроков, по длительности M минут, перемены длятся по P минут. Выведите на экран, что будет через L минут после начала занятий в школе. (N, M, P, L - вводятся с клавиатуры)
Jenee вне форума Ответить с цитированием
Старый 24.02.2017, 10:26   #2
ViktorR
Старожил
 
Регистрация: 23.10.2010
Сообщений: 2,304
По умолчанию

M+P - урок+ перемена.
L делим на M+P и получаем целую часть и остаток.
Если целая часть больше N - уроки закончились.
Если целая часть меньше N и остаток больше M - перемена, иначе - урок.

Есть тонкость относительно последнего урока. Если урок закончился, то пора домой, а не на перемену ...

Как-то так, ..
Как-то так, ...
ViktorR вне форума Ответить с цитированием
Старый 24.02.2017, 11:14   #3
newerow1989
Я самый любопытный
Участник клуба
 
Аватар для newerow1989
 
Регистрация: 24.07.2012
Сообщений: 1,949
По умолчанию

Код:
var n,m,p,l,l1:integer;
begin
   Write('N = '); Readln(n);
   Write('M = '); Readln(m);
   Write('P = '); Readln(p);
   Write('L = '); Readln(l);
   l1:=n*m+(n-1)*p;
   If l>l1 then
      Writeln('dom') else
   begin
      l1:=l div (m+p);
      l:=l mod (m+p);
      If l<=m then
         Writeln(l1+1,' urok') else
         Writeln(l1+1,' peremena');
   end;
   Writeln;
   Readln;
end.
С запрограммированным приветом, Неверов Евгений!
Сайт: http://newerow1989.ru
[Паскаль] [Delphi]
newerow1989 вне форума Ответить с цитированием
Старый 25.02.2017, 09:18   #4
Jenee
Пользователь
 
Регистрация: 24.02.2017
Сообщений: 20
По умолчанию

Спасибо вам огромное!!!
Jenee вне форума Ответить с цитированием
Старый 25.02.2017, 10:53   #5
newerow1989
Я самый любопытный
Участник клуба
 
Аватар для newerow1989
 
Регистрация: 24.07.2012
Сообщений: 1,949
По умолчанию

С запрограммированным приветом, Неверов Евгений!
Сайт: http://newerow1989.ru
[Паскаль] [Delphi]
newerow1989 вне форума Ответить с цитированием
Ответ


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

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

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


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Оптимизировать файл (после вноса изменений грузится по 15-20 минут) voron2323 Microsoft Office Excel 3 25.03.2012 22:29
Вопрос на пять минут -что такое ^ Zibiv Помощь студентам 4 22.12.2011 12:36
черный экран призапуске минут 5 а потом всё норм toldo Компьютерное железо 7 13.01.2011 22:33
прога падает ровно(!) через 5 минут после старта Tapapax Общие вопросы .NET 8 11.11.2009 15:04
часы показывают m часов, n минут и k секунд. Каковы будут показатели часов через p часов, q минут и r сек Паскалька^^ Помощь студентам 3 11.10.2009 19:41