Преоброзовать информацию об объекте из графической формы в текстовую создатьтекставую мадель объекта

видим на рисунке прямоугольник

 

пишем

*длина

*ширина

*координаты центра

*угол поворота

*цвет

*цвет заливки

методы

*площадь

*нарисовать

*повернуть

и тд

//pascalabc.net 3.2 сборка 1318 var   s: string;   i,k: integer; begin   readln(s);   i: =1;   k: =length(s);   while i< > k do   begin     k: =length(s);     if (upcase(s[i]) < 'a') or (upcase(s[i]) > 'z') then       begin         delete(s, i, 1);         i: =i-1;       end;     i: =i+1;   end;   writeln(s); end. пример ввода: gleb1kosyrev sample текст, pointer symbol is ^ пример вывода: glebkosyrevsamplepointersymbolis

Т. к. 1 ребенок любит и капусту и морковь и горох, то:   4 - 1 = 3 ребенка любят капусту и морковь  3 - 1 = 2 детей любят капусту и горох,  2 - 1 = 1 ребенок любит морковь и горох  7 - (1 + 2 + 3) = 1 ребенок любит только капусту  6 - (1 + 3 + 1) = 1 ребенок любит только морковь  5 - (1 + 2 + 1) = 1 ребенок любит только горох т. к. мы узнали предпочтения всех детей то сложив количество этих детей получим сколько человек в семье:   1 + 3 + 2 + 1 + 1 + 1 + 1 = 10 детей.  ответ. в семье 10 детей.