Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
Объяснение:
Якщо не помиляюсь розгалужений
вместо х ставишь 2,значит у=2-1,у=1,х=у-2,2=4-2,у=х-у,у=2-у,тут у-любое,кроме 2 и более
var kol,a,b,c: longint;
begin
read(a,b,c);
if a< 0 then kol: =kol+1;
if b< 0 then kol: =kol+1;
if c< 0 then kol: =kol+1;
write(kol);
end.
Популярные вопросы