Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
1)котят 7
2)рыжих котят 5
3)зелоноглазых котят 3
4)котят рыжих и зеленоглазых 3
5)котят рыжих или зеленоглазых 3
6)рыжих и не зеленоглазых котят 3
7)не рыжих и не зеленоглазых 1
var x,s,n: integer;
begin
repeat
read(x);
if x< 0 then n: = n +1;
if x > 0 then s: =s+x;
until x=0;
writeln(n,s);
end.
Популярные вопросы