Pascal дано десять имен. проверьте, все ли они написаны с прописной буквы, если нет, то исправьте.

253

495

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

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

lenokv

Информатика

4,7(86 оценок)

// pascalabc.net 3.2, сборка 1449 от 23.05.2017 // внимание! если программа не работает, обновите версию! begin var s: =readlnstring.towords.select(w-> w[: 2].toupper+w[2: ].tolower) .joinintostring; writeln(s) end. пример вася петя коля таня маша наташа глаша сережа марина виталий вася петя коля таня маша наташа глаша сережа марина виталий

pilotprofix

Информатика

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

// pascalabc.net 3.2, сборка 1456 от 26.05.2017 // внимание! если программа не работает, обновите версию! begin var n: =readinteger('n='); var s: =range(10,99).where(x-> (power(x div 10,3)+power(x mod 10,3)=n)); if s.count> 0 then s.println else writeln('нет таких чисел') end. пример n= 9 12 21