Ваннушки есть красные и желтые тюльпаны. она хочет составить букет так, чтобы в нем было 3 цветка. какие разные букеты может составить анечка.

Красный+ желтый+желтый красный+красный+желтый желтый+желтый+желтый красный+красный+красный

Pascalabc.net 3.3.5, сборка 1659 от 09.04.2018 внимание! если программа не работает, обновите версию! begin   var (so,se): =(0,0);   readseqintegerwhile(t-> t> 0).foreach(t-> if t.isodd then so+=t else se+=t);   write('сумма четных ',se,' ');   if se> so then write('> ')   else       if se=so then write('=')       else write('< ');   writeln(' суммы нечетных ',so) end. пример 3245 6774 23241 5645 967 32234 123 65 2134 0 сумма четных 41142 > суммы нечетных 33286 программа считывает данные, пока они являются натуральными числами.

Если предполагается, что фио вводится на одной строке через пробел, то первая  программа будет такой: var fio,s,f,i: string; p: integer; begin writeln('введите фио'); readln(fio); p: =pos(' ',fio); s: =copy(fio,1,p-1)+'-'+fio[p+1];   delete(fio,1,p); p: =pos(' ',fio); s: =s+fio[p+1]; writeln(s); end.программа для 2 : var s: string; i: integer; beginwriteln('введите строку'); readln(s); for i: =1 to length(s) docase s[i] of  'а': s[i]: ='б';   'а': s[i]: ='б';   'б': s[i]: ='а';   'б': s[i]: ='а'; end; writeln(s); end.