Перевод программы с visual basic на ! sub dat() dim vdata as string on error goto metka vdata = inputbox("введите дату по образцу: дд.мм.гг") if vdata = "" then exit sub if vdata like "##.##.##" = true then if left(datevalue(vdata), 6) & right(datevalue(vdata), 2) = vdata then msgbox "день: " & left(vdata, 2) & vbcr & "месяц: " & mid(vdata, 4, 2) & vbcr & "год: " & right(vdata, 2) else metka: msgbox "такой даты в календаре не существует" end if else msgbox "дата введена не по образцу" end if end sub

116

271

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

4,5(79 оценок)

Pascalabc.net 3.4.2, сборка 1843 от 24.10.2018 внимание! если программа не работает, обновите версию!

begin

try

var vdata : = readlnstring('введите дату по образцу дд.мм.гг: ');

if vdata = '' then exit;

var s : = vdata.matchvalue('(\d\d\.){2}\d\d');

if s = vdata then

begin

var d : = datetime.parse(s);

$'день: {d.day}{newline}месяц: {d.month}{newline}год: {d.year}'.println

end

else

'дата введена не по образцу'.println

except

'такой даты в календаре не существует'.println

end

end.

4,5(60 оценок)

ответ:

да точка z лежит

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

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

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

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

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