Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Лиза_
0 / 0 / 0
Регистрация: 14.04.2011
Сообщений: 6
#1

Дан номер года. Определить соответствующий ему номер столетия - Pascal ABC

14.04.2011, 14:45. Просмотров 872. Ответов 2
Метки нет (Все метки)

2.Дан номер некоторого года(целое положительное число). Определить соответствующий ему номер столетия, учитывая, что, к примеру, началом 20 столетия был 1901 год.
Помогите пожалуйста решить!!!!!!!!!!
http://www.cyberforum.ru/pascalabc/thread233056.html
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
14.04.2011, 14:45
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Дан номер года. Определить соответствующий ему номер столетия (Pascal ABC):

По номеру у (у> 0) некоторого года определить с - номер его столетия
По номеру у (у> 0) некоторого года определить с - номер его столетия (учесть,...

Вводим номер месяца M и дня D. Определить порядковый номер дня в году T соответствующий этой дате
Вводим номер месяца M и дня D. Определить порядковый номер дня в году T...

Дан номер года. Указать число дней в этом году.
Подскажитте пжл какие две проверки для номера года нужно сделать для того чтобы...

Дан номер некоторого года. Вывести число дней в этом году
IV.Условные операторы 28. Дан номер некоторого года (положительное целое...

Определить k – порядковый номер того дня високосного года, который имеет дату d, m.
type mes = (jan, feb, mar, apr, may, jun, jul, aug, sep, oct, nov, ...

2
Высокий
244 / 244 / 135
Регистрация: 09.04.2011
Сообщений: 524
14.04.2011, 15:14 #2
Лучший ответ Сообщение было отмечено Лиза_ как решение

Решение

Вторая:
Pascal
1
2
3
4
5
6
7
8
9
uses crt;
var a,b:integer;
begin clrscr;
write('Ââåäèòå ãîä: '); readln(a);
b:=a div 100;
inc(b);
writeln(b,' ñòîëåòèå.');
readkey
end.
0
EvilScream
23 / 22 / 29
Регистрация: 16.12.2010
Сообщений: 71
14.04.2011, 15:33 #3
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
uses crt;
var
 a:integer;
begin
 clrscr;
 write('Ââåäèòå ãîä: ');
 readln(a);
case a of
 1000..1099: writeln(' 10-ñòîëåòèå');
 1100..1199: writeln(' 11 ñòîëåòèå ');
 1200..1299 : writeln('12- ñòîëåòèå');
end;
end.
смысл понятен думаю дальше сами запишете
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
14.04.2011, 15:33
Привет! Вот еще темы с решениями:

По номеру года определить соответствующий ему номер столетия
Помогите написать программу. Дан номер некоторого года (целое положительное...

По номеру некоторого года определить соответствующий ему номер столетия
Дан номер некоторого года (целое положительное число). Определить...

Ввести номер месяца и номер дня, вывести число дней, оставшихся до Нового Года
Помогите решить задачи в паскале, а то совсем труба=( _______sin2x, при x>0 ...

Дан номер некоторого года. Вывести число дней в этом году
17. Дан номер некоторого года (положительное целое число). Вывести число дней...


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

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

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