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

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

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

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

Условный оператор: По номеру года определить номер столетия
Помогите пожалуйста решить задачу По 4х значному номеру года, запрошенному с...

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

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

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

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

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

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

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

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


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

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

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