Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.63/8: Рейтинг темы: голосов - 8, средняя оценка - 4.63
0 / 0 / 0
Регистрация: 25.02.2016
Сообщений: 4
1

Вывести на экран месяцы, в которых пятница выпадает на 13-е число

25.02.2016, 17:00. Показов 1498. Ответов 2
Метки нет (Все метки)

Доброго времени суток, аноны 0/
Требуется ваша крепкая рука.

Вывести на экран месяца, в которых пятница приходит на 13-е числа и вычислить количество таких дней для:
а) 2016 года б) N-год.
0

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

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

Определить все месяцы 2000 года, в которых 13 число было пятницей
Компьютерный вирус "Пятница, 13" может повредить информацию только в те дни, когда 13 число...

Вывести на экран числа делителем которых является целое число A
Доброго времени суток, пожалуйста помогите. Вводится N чисел. Вывести на экран те числа,...

Вывести на экран те элементы, сумма цифр которых - четное число
Дан одномерный массив натуральных чисел. Вывести на экран те элементы, сумма цифр которых - четное...

Вводится N чисел. Вывести на экран те числа, делителем которых является целое число A
Вот решение задачи на Паскале. Program chisla; uses crt; var a,b,i,c:integer; begin clrscr;...

2
Эксперт Pascal/Delphi
6738 / 4523 / 4790
Регистрация: 05.06.2014
Сообщений: 22,310
25.02.2016, 17:53 2
Определить все месяцы 2000 года, в которых 13 число было пятницей
0
4447 / 2187 / 2147
Регистрация: 10.12.2014
Сообщений: 8,351
26.02.2016, 08:51 3
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

PascalABC.NET:
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
uses System;
begin
  var d := new DateTime(ReadLnInteger('Введите год:'), 1, 13);
  var count := 0;
  var r : String;
  if d.DayOfWeek = System.DayOfWeek.Friday then
    begin
      count += 1; r += String.Format('{0:MMMM}', d) + #32;
    end;
  repeat
    d := d.AddMonths(1);
    if d.DayOfWeek = System.DayOfWeek.Friday then
      begin
        count += 1; r += String.Format('{0:MMMM}', d) + #32;
      end;
  until d.Month = 12;
  WriteLn('Пятница 13 выпадает раз: ', count);
  WriteLn(r);
end.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
26.02.2016, 08:51

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

Вывести на экран все слова, количество букв в которых превышает введенное число
Необходимо вывести на экран все слова, количество букв в которых превышает число, заданное...

Вывести на экран элементы массива у которых сумма номера и элемента дают число кратное 17
4. Вывести на экран элементы массива у которых сумма номера и элемента дают число кратное 17....

Найти и вывести на экран все N и N!, для которых значение N! не превосходит заданное с клавиатуры число Z
Найти и вывести на экран все N и N!, для которых значение N! не превосходит заданное с клавиатуры...

Структура Student: вывести на экран информацию о студентах, средний балл которых превышает введенное число
STUDENT (наименование учебного заведения, фамилия и инициалы студента,номер группы,набор из пяти...


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

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

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