Даны символы s1, s2, известно, что символ s1 отличен от точки и что среди s2, s3, имеется хотя бы одна точка. пусть s1, , sn—символы, предшествующие первой точке (n заранее неизвестно). получить: а) последовательность sn, sn-1, , s1; б) последовательность s1, s3, , sn, если n—нечетное, и последовательность s2, s4, , sn, если n—четное.

Ответы

Язык программирования не указан, потому - самый простой вариант - программа на паскале. даже на паскале можно решать различными способами - с массивом, без массива, со строками, без строк. опять-таки, самый простой вариант - со строками. var s,p: string; n,i: integer; begin writeln('введите символы: '); readln(s); n: =pos('.',s)-1; writeln('n = ',n); p: =''; for i: =1 to n do p: =s[i]+p; writeln('а)'); writeln(p); p: =''; if n mod 2 = 0 then i: =2 else i: =1; while i< =n do begin p: =p+s[i]; i: =i+2; end; writeln('б)'); writeln(p); end. пример: введите символы: даны символы s1, s2, известно, что символ s1 отличен от точки n = 21 а) ,2s ,1s ыловмис ынад б) дн ивл 1 2

Спасибо

Ответ дал: Гость

program rrr; uses crt; const n=9; type massiv=array[1..n]of real; var a: massiv; max,sr: integer; procedure vvod(var x: massiv); var i: integer; beginwriteln('wwedite massiv'); for i: =1 to n doreadln(x[i]); end; procedure vivod(x: massiv); var i: integer; beginfor i: =1 to n dowrite(x[i]: 6: 2,' '); end; procedure sred_ar_i_max(x: massiv,var sr,max: real); var sum: real; i: integer; begins: =0; for i: =1 to n doif x[i]> 0 then s: =s+x[i]; end; sr: =s/n; for i: =1 to n doif (x[i]> 0) and max< x[i] then max: =x[i]; end; vvod(a); clrscr; vivod(a); sred_ar_i_max(a,sr,max); writeln('max=',max: 6: 2,'srednee arifmet=',sr: 6: 2); readln; end.

Ответ дал: Гость

1)52: 2=26(чел) любят пирож

2)26-20=6(чел) любят морож

ответ 6 чел