Нужно составить программу, которая сможет вывести число, месяц и день недели, которые наступят через k дней, начиная с первого января 2008 года. напомним, что это был вторник. язык : паскаль. целое число k (0 < = k < = 1000) пример: входа: | выхода: 0 | tuesday, 01.01 5 | sunday, 06.01
244
399
Ответы на вопрос:
// я , невероятно не люблю изобретать велосипеды //поэтому воспользуемся уже встроенным типом datatime //pascal abc.net версия 2.2 сборка 790 uses system; var k: integer; startsys: datetime; //сабж m,d: string; begin; readln(k); startsys: =startsys.addyears(2007); //добавляет года к старту, отсчёт от 1 startsys: =startsys.adddays(k); //добавляет кол-во дней //тип сам определяет високосный год или нет writeln(startsys.dayofweek,', ',startsys.day,'.',startsys.month); //вывод end.
На си строка и есть массив символов char. считывай весь массив, а потом обращайся по индексу к нужным символам.
Популярно: Информатика
-
kolyanikolay20016.06.2023 17:19
-
halilappazov16.05.2022 11:49
-
Almurt01.10.2021 23:34
-
priss66607.12.2021 17:32
-
лим0н29.05.2020 15:23
-
нас8616.04.2020 12:04
-
anastasiyalis726.07.2021 18:27
-
qidanabala17.06.2023 17:44
-
belorus70oxm1t126.05.2023 00:43
-
Nazrin2423.05.2023 16:22