Впрограмме паскаль. с строковых функций и процедур преобразуйте слово «русалки» в слово «красули».

127

254

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

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

dominikablak

Информатика

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

Var s, s1: string; begin s: ='русалки'; s1: =copy(s,6,1)+copy(s,1,1) + copy(s,4,1)+copy(s,3,1)+copy(s,2,1)+copy(s,5,1)+copy(s,7,1); writeln(s1); end.

frausadykova20

Информатика

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

// pascalabc.net 3.2, сборка 1427 от 24.04.2017 // внимание! если программа не работает, обновите версию! begin var a: =seqrandom(readinteger('n=',50).select(n-> double(n/; a.foreach(x-> write(x: 0: 1,' ')); writeln; writeln('сумма отрицательных: ',a.where(x-> x< 0).sum); var p: =a.indexmin; var q: =a.indexmax; if p> q then swap(p,q); writeln('произведение на интервале: ', a[p+1: q].aggregate(1.0,(x,y)-> x*y)); writeln('сортировка: '); a.sort; a.foreach(x-> write(x: 0: 1,' ')); writeln; end. пример n= 13 1.7 -0.8 -1.3 -1.4 5.0 -3.1 -0.7 -2.7 2.6 -4.9 4.0 -2.0 -2.0 сумма отрицательных: -18.9 произведение на интервале: -15.2334 сортировка: -4.9 -3.1 -2.7 -2.0 -2.0 -1.4 -1.3 -0.8 -0.7 1.7 2.6 4.0 5.0