if p mod 2=0 then writeln ('оканчивается на четную цифру')
else writeln ('оканчивается на четную цифру');
while n> 0 do
begin
n: =n div 10;
s: =s+1;
end;
writeln ('количество цифр в числе', s);
end.
Ответ дал: Гость
я так понимаю нужно нарисовать рисунки рыб, карасей и различных животных. множества нужно перекрестить(множество рыб и хищ. животных), так как рыба тоже может быть хищником
Ответ дал: Гость
поскольку язык не указан пишу в том который мне удобнее
Популярные вопросы