Напишите программу . условие такое: вводится дата например 05.04.2016, программа должна вывести что сегодня 5 апреля 2016. умоляю! нужно!

146

297

Посмотреть ответы 3

Ответы на вопрос:

Anna18181818181818

Информатика

4,8(55 оценок)

Программа (не проверяет корректность введенных данных, т.е. работает правильно только в случае, если введена корректная дата в формате dd.mm.yyyy): const months: array[1..12] of string= ('января','февраля','марта','апреля','мая','июня', 'июля','августа','сентября','октября','ноября','декабря'); var s,s1,month: string; d,m,y,code: integer; begin write('введите дату dd.mm.yyyy = '); readln(s); val(copy(s,1,2),d,code); s1: =s; delete(s1,1,3); val(copy(s1,1,2),m,code); month: =months[m]; delete(s1,1,3); val(copy(s1,1,4),y,code); writeln(d,' ',month,' ',y); end. пример: введите дату dd.mm.yyyy = 05.04.2016 5 апреля 2016

tima2011

Информатика

4,4(42 оценок)

Program dates; var date : string; dd, mm, yy : string; d, m, y : integer; function strmonth(dt : integer) : string; var res : string; begin res: =''; case dt of 1 : res: =' января '; 2 : res: = ' февраля '; 3 : res: = ' марта '; 4 : res: = ' апреля '; 5 : res: = ' мая '; 6 : res: = ' июня '; 7 : res: = ' июля '; 8 : res: = ' августа '; 9 : res: = ' сентября '; 10 : res: = ' октября '; 11 : res: = ' ноября '; 12 : res: = ' декабря '; end; strmonth : = res; end; begin write('введите дату: '); readln(date); dd: =copy(date, 1, 2); mm: =copy(date, 4, 2); yy: =copy(date, 7, 4); val(dd, d); val(mm, m); val(yy, y); writeln('сегодня ', d, strmonth(m), y, ' года'); end.

БлинчикТян

Информатика

4,6(24 оценок)

Т.к. первоначально была 8-битная кодировка, а после перекодировки она стала 16-битной, объем увеличился в два раза (8 больше 16ти в два раза). сообщение увеличилось на 2048 байт. примем за икс первоначальный объем: x*2 = x + 2048 x = 2048 то есть первоначальный объем файла равен 2048 байт.

Реши свою проблему, спроси otvet5GPT

Быстро
Мгновенный ответ на твой вопрос
Точно
Бот обладает знаниями во всех сферах
Бесплатно
Задай вопрос и получи ответ бесплатно

Задай свой вопрос

Популярно: Информатика

Есть вопросы?

Как otvet5GPT работает?

otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса.
Сколько это стоит?

Проект находиться на стадии тестирования и все услуги бесплатны.
Могу ли я использовать otvet5GPT в школе?

Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое!
В чем отличия от ChatGPT?

otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.