Решите всё на паскале, пожалуйста!!!

Решите всё на паскале, пожалуйста!!!
Гость
Ответ(ы) на вопрос:
Гость
//PascalABC.Net 3.2 {1} begin range(1,readinteger('Ввод n: ')-1).Print; end. {2} begin range(-1*(readinteger('Ввод n: ')), -1).Reverse.Print; end. {3} begin write(range(2, readinteger+1).Sum); end. {4} begin var sum:=-1*readinteger+readinteger+1; write ('Нечетных чисел: ', (sum div 2)+(sum mod 2)); end. {5} begin for var i:=0 to 255 do if (i mod 3)=0 then print(i); end.
Не нашли ответ?
Ответить на вопрос
Похожие вопросы