Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.58/24: Рейтинг темы: голосов - 24, средняя оценка - 4.58
Alinoska
1 / 1 / 0
Регистрация: 01.01.2013
Сообщений: 34
#1

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

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

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

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

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

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

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

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

1
Виталий777555
13 / 13 / 6
Регистрация: 19.11.2012
Сообщений: 94
27.01.2013, 10:26 #2
Лучший ответ Сообщение было отмечено Alinoska как решение

Решение

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

Числа x,y,z обозначают дату. Найти номер этого дня с начала года
Числа x,y,z обозначают дату. Найти номер этого дня с начала года. Как решить...

вывести какой посчету день с начала года
pascal дату вводить в 3 переменных, день, месяц год. предусмотреть проверку...

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


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

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

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