Для двух записей составить бинарное дерево и таблицу истинности.

266

486

Посмотреть ответы 1

Ответы на вопрос:

ВенераРезанова

Информатика

4,6(25 оценок)

Var a,b,c,n: real; begin writeln ('введи три числа'); readln(a,b,c); n: =0; if a< 0 then n: =n+1; if b< 0 then n: =n+1; if c< 0 then n: =n+1; if n> 0 then writeln ('среди трех чисел ', n, ' отрицательных') else if n=0 then writeln ('среди трех чисел нет отрицательных'); end.