Ручка
пастила
сарафан
самолёт
караван
картина
колокол
= = = = = = = =
В связи с вопросом nelle987, поясняю: здесь нет никакого алгоритма, это вообще не алгоритмическая задача по своей сути. Нужно просто мысленно разбить исходные слова на слоги, и увидеть из них новое слово. Никакой магии.
Если хотите подойти к задаче системно, то можно организовать поиск по словарю, но здесь слишком простой случай, чтобы заморачиваться с поиском.
Program Summa;
Uses Crt;
var s,n,c:integer;
begin
clrscr;
write('Введите числа коннц ввода 0: ');
s:=0;c:=0;
repeat
readln(n);
c:=c+1;
if (n mod 2)=0 then
if ((n>=5)and (n<=25)) then s:=s+n;
until (n=0) or (c=1000) ;
write('Сумма ',c,' чётных чисел в диапазоне от 5 до 25:',s);
readkey;
end.
:D
Оно на всех неправильное ось симетрии должа делить предмет ровно на пополам