я так понимаю нужно нарисовать рисунки рыб, карасей и различных животных. множества нужно перекрестить(множество рыб и хищ. животных), так как рыба тоже может быть хищником
Ответ дал: Гость
а если число
var n,i,p: integer;
s: string;
begin
read(n);
s: =str(n) ; {переводим число в строку}
n: =0;
for i : = 1 to length(s) do
n: = n+ int(s[i]); {переводим каждый символ строки обратно в цифру}
Популярные вопросы