Недавно археологи обнаружили странную находку, предположительно летопись
некоторых событий, которая может раскрыть берляндским историкам причину исчезновения
столь могущественного общества — стопку из дюжины блестящих тонких дисков из
неизвестного материала, нанизанных на алмазный стержень. На верхнем диске ученые
обнаружили три числа, каждое из которых состоит из двух цифр. Ученые предположили, что на
диске записана дата конца великой цивилизации.
После анализа дисков было установлено, что они использовались в XXI веке по
летоисчислению, использовавшемуся древней цивилизацией — так называемому
«григорианскому» календарю — год продолжительностью 365 дней, разделялся по нему на
двенадцать месяцев. Второй месяц в году имел продолжительность двадцать восемь дней,
первый, третий, пятый, седьмой, восьмой, десятый и двенадцатый — тридцать один день,
остальные — тридцать дней. В особые года, номер которых делился на четыре и не делился на
сто, либо делился на четыреста, второй месяц длился двадцать девять дней. Веком номер i
назывался период с 100 × (i − 1) + 1 года по 100 × i.
Так как достоверно не известно, в каком порядке представители древней цивилизации
записывали даты, вам, как главному специалисту по григорианскому календарю, поручили
провести исследование — установить, каким датам в XXI веке могла соответствовать надпись,
в предположении, что одно из чисел соответствует дню в месяце (дни в каждом месяце
нумеровались с единицы), еще одно из чисел — номеру месяца (месяцы также нумеровались с
единицы), и еще одно число — последним двум цифрам года в XXI веке григорианского
календаря.
По заданной надписи на диске выясните, каким датам в XXI веке она могла
соответствовать.
Формат входного файла
Во входном файле в формате aa/bb/cc записаны числа с диска.
Формат выходного файла
В выходной файл в произвольном порядке выведите все корректные даты dd/mm/yy в
XXI веке, где dd соответствует номеру дня, mm – номеру месяца, yy — номеру года, причем
числа, соответствующие dd, mm и yy являются перестановками чисел с диска.
В случае, если никакая перестановка исходных чисел не является корректной датой XX
ОТВЕТ ЕСТЬ НА 1,2,3,4,7,8 ВОПРОС
1. Термин "информатика" возник в 60-х гг. XX в. во Франции для названия области, занимающейся автоматизированной обработкой информации с электронных вычислительных машин.
2. Информатика — это комплексная, техническая наука, которая изучает и систематизирует законы и приемы создания, сохранения, воспроизведения, получения, обработки и передачи данных средствами вычислительной техники, а также принципы функционирования этих средств и методы управления ними.
3. Важная особенность информатики – широчайшие приложения, охватывающие почти все виды человеческой деятельности: производство, управление, науку, образование, проектные разработки, торговлю, финансовую сферу, медицину, криминалистику, охрану окружающей среды и др.
4. Задачи информатики как науки составляют:
изучить структуру, общие свойства информации, исследовать законы и методы создания, преобразования, накопления, передачи и использования информации. систематизация приемов и методов работы с аппаратными и программными средствами вычислительной техники.
7.Наиболее обобщенными информационными процессами являются сбор, преобразование, использование информации. К основным информационным процессам, изучаемым в курсе информатики, относятся: поиск, отбор, хранение, передача, кодирование, обработка, защита информации.
8.Информационная деятельность человека – это деятельность, связанная с процессами получения, преобразования, накопления и передачи информации. ... Вместе с тем человечеству всегда приходилось решать задачи управления, накопления, обработки и передачи информации, опыта, знания.
1. Глупый школьный вариант
Перебираем все числа в заданном диапазоне и если встречаем кратное 5, прибавляем его к сумме.
var
i,s:integer;
begin
s:=0;
for i:=1 to 200 do
if i mod 5=0 then s:=s+i;
Writeln(s)
end.
Результат:
4100
2. Более умный школьный вариант с циклом while
Первое число, кратное 5 - это 5. А дальше прибавляем по 5 к сумме и ничего не нужно проверять.
var
i,s:integer;
begin
i:=5; { первое подходящее число }
s:=i;
while i<200 do begin
i:=i+5;
s:=s+i
end;
Writeln(s)
end.
3. Еще более умный школьный вариант с циклом for
От предыдущего отличается получения нужных чисел.
Замечаем, что ряд 5, 10, 15, 20, ... можно получить из чисел 1, 2, 3, 4, ..., умножая их на 5. И таких чисел будет 40.
var
i,s:integer;
begin
s:=0;
for i:=1 to 40 do s:=s+5*i;
Writeln(s)
end.
4. Современный вариант на современном Паскале
Генерируем последовательность нужных чисел и находим сумму её элементов.
// PascalABC.NET 3.3, сборка 1625 от 17.01.2018
// Внимание! Если программа не работает, обновите версию!
begin
Range(5,200,5).Sum.Println
end.