Форум программистов, компьютерный форум, киберфорум
Наши страницы

Pascal ABC

Войти
Регистрация
Восстановить пароль
 
Рейтинг: Рейтинг темы: голосов - 21, средняя оценка - 4.71
Alinoska
1 / 1 / 0
Регистрация: 01.01.2013
Сообщений: 34
#1

С начала 1990 года по некоторый день прошло n месяцев и 2 дня (n ≥ 1) - Pascal ABC

26.01.2013, 20:20. Просмотров 4158. Ответов 1
Метки нет (Все метки)

С начала 1990 года по некоторый день прошло n месяцев и 2 дня (n ≥ 1). Определить название месяца (январь, февраль и т. п.) этого дня.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
26.01.2013, 20:20
Я подобрал для вас темы с готовыми решениями и ответами на вопрос С начала 1990 года по некоторый день прошло n месяцев и 2 дня (n ≥ 1) (Pascal ABC):

С начала 1990 года по некоторый день прошло n месяцев и 2 дня. Определять название месяца этого дня - Pascal ABC
С начала 1990 года по некоторый день прошло n месяцев и 2 дня. Определять название месяца ( январь, февраль и т.п) этого дня

С начала 1 января 1990 по некоторый день прошло m месяцев и n дней - Pascal ABC
определить название месяца этого дня

Сначала суток прошло n секунд, определить: сколько полных часов прошло с начала суток, сколько полных минут прошло с начала текущего часа, сколько пол - Pascal
помогите решить Сначала суток прошло n секунд, определить: сколько полных часов прошло с начала суток, сколько полных минут прошло с...

Найти номер дня от начала года - Pascal
Числа x,y,z обозначают дату. Найти номер этого дня с начала года.:-[

Числа x,y,z обозначают дату. Найти номер этого дня с начала года - Pascal
Числа x,y,z обозначают дату. Найти номер этого дня с начала года. Как решить без использования циклов? Объясните:) Заранее благодарю.

День недели по номеру дня года - Pascal ABC
Дано целое число k (1≤k≤365). Присвоить целочисленной величине N значение 1, 2, …, 6 или 7 в зависимости от того, на какой день недели...

1
Виталий777555
13 / 13 / 3
Регистрация: 19.11.2012
Сообщений: 94
27.01.2013, 10:26 #2
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
//С начала 1990 года по некоторый день прошло n месяцев и 2 дня (n >= 1).
//Определить название месяца (январь, февраль и т. п.) этого дня.
program blablabla;
var
   conot,nhot,vg,g,m,n:integer;
begin
   conot:=0;
   cls;
   write('Введте колличество пройденных месяцев ');read(n);
   vg:=1988;
   nhot:=1990;
   g:=n div 12;
   m:=n mod 12;
   conot:=nhot+g;
   if ((conot-vg)mod 4)=0 then
   writeln('Год высокосный ');
   writeln('Прошло лет ',g);
   writeln('Текущий месяц в году ',m);
   writeln('Стал год ',conot);
   case m of
      0:writeln('Январь ');
      1:writeln('Февраль ');
      2:writeln('Март ');
      3:writeln('Апрель ');
      4:writeln('Май ');
      5:writeln('Июнь ');
      6:writeln('Июль ');
      7:writeln('Август ');
      8:writeln('Сентябрь ');
      9:writeln('Октябрь ');
      10:writeln('Ноябрь ');
      11:writeln('Декабрь ');
   end;
end.
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
27.01.2013, 10:26
Привет! Вот еще темы с ответами:

вывести какой посчету день с начала года - Pascal
pascal дату вводить в 3 переменных, день, месяц год. предусмотреть проверку правильности данных(не бывает 31 февраля, 42 августа),...

Даны три числа: день, месяц, год. Вывести дату предыдущего дня, учитывая особенности високосного года - Pascal ABC
Даны три числа: D(день),M(число),V(год).Вывести дату предыдущего дня учитывая особенности високосного года.

С начала 1990... - Pascal
С 1990 года по некоторый день прошло n месяцев и 2 дня (n меньше или равно 1); Определить название месяца этого дня. Во первых...

С начала суток прошло N секунд (N — целое). Найти количество секунд, прошедших с начала последней минуты - Pascal
21. С начала суток прошло N секунд (N — целое). Найти количество секунд, прошедших с начала последней минуты.


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru