Загадка три слогав слове.первый слог- большой снеговика кусок. осуществляет слог второй слоны, придя на водопой. а третий слог зовётся так, как прежде звался твёрдый знак.

ком

пьют

ер

ответ: компьютер

компьютер  комок. первый слог: ком  пьют  ер

ком+пьют+ер=компьютер

По сути нужно найти набор букв "child" и добавить сзади "ren". 1) начало 2) ввод числа n и массива s(n) 2.1) k = 0 3) цикл по i от 1 до n-4 3.1) если (s(i)="c") и (s(i+1)="h") и (s(i+2)="i") и (s(i+3)="l") и (s(i+4)="d"), то 3.1.1) k = k + 3 3.1.2) переопределяем размер массива на s(n+k) 3.1.3) цикл по j от i+5 до n // отодвигаем на 3 знака все буквы после s(i+4)="d" 3.1.3.1) s(j+3) = s(j) 3.1.3.2) конец цикла по j 3.1.4) s(i+5)="r"; s(i+6)="e"; s(i+7)="n" 3.1.5) конец если 3.2) конец цикла по i 4) вывод массива s(n+k) 5) конец

Вот: uses crt; var a, b, c; integer; begin clrscr;     while (a > -10) and (a < 10) do     while (b > -10) and (b < 10) do     begin write(' ввести два целых числа: ');     readln(a, b);     c: = a * b; writeln(' произведение равно: ' ,c); end; writeln(' программа завершена.');     readln end.на выходе: uses crt; var a, b, c; integer; begin clrscr;     while (a > -10) and (a < 10) do     while (b > -10) and (b < 10) do     begin write(' ввести два целых числа: ');     readln(a, b);     c: = a * b; writeln(' произведение равно: ' ,c); end; writeln(' программа завершена.');     readln end.