Составьте программу вычисления значения функции y = 17x^2-6x+13 при любом значении x

184

218

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

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

Volovoy00T

Информатика

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

//pascal abc.net 3.1 сборка 1256 var ars: array[1..12] of string: =('января','февраля','марта','апреля','мая','июня','июля','августа','сентября','октября','ноября','декабря'); s: string; begin read(s); if s[1]='0' then delete(s,1,1); write(copy(s,1,pos('.',s)-1),' '); delete(s,1,pos('.',s)); write(ars[strtoint(copy(s,1,pos('.',s)-1))],' '); delete(s,1,pos('.',s)); write(s,' года'); end. пример ввода: 15.10.2012 пример вывода: 15 октября 2012 года