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

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

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

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

Помощь в написании контрольных, курсовых и дипломных работ здесь.

Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
26.01.2013, 20:20
Ответы с готовыми решениями:

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

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

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

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

1
14 / 14 / 6
Регистрация: 19.11.2012
Сообщений: 99
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
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
27.01.2013, 10:26

Помощь в написании контрольных, курсовых и дипломных работ здесь.

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

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

С сентября 2014 года по некоторый день прошло k месяцев.Определить номер месяца к которому относится этот день
С сентября 2014 года по некоторый день прошло k месяцев.Определить номер месяца к которому...

Найти дату, с которой по настоящий день прошло n месяцев
помогите пожалуйста с задачками 1. С некоторой даты по настоящий день прошло n месяцев, найти...


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

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

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