Язык pascal:
if A=0 then A:=A + 3 else A:=0;
Выход:
А=0 : 3;
A=-1 : 0;
A=8 : 0.
<span>Алгоритм "дискретности" должен представлять процесс решения задачи как последовательное выполнение простых (или ранее определенных) шагов. Каждое действие, предусмотренное алгоритмом, исполняется только после того, как закончилось исполнение предыдущего.</span>
Например: Ваня купил ручку, чтобы обменять с Мишей на карандаш. Если ручки не будет, то следовательно не будет и карандаша.
А вот "<span>не удовлетворяющего свойству дискретности" Ваня купил ручку и всё на этом закончилось.</span>
Удачи!
Var a,b,c:word;
begin
read(a,b,c);
if (a+b>c) and (a+c>b) and (b+c>a) then begin write('Est');
if (sqr(a)>sqr(b)+sqr(c)) or (sqr(c)>sqr(b)+sqr(a)) or (sqr(a)>sqr(c)+sqr(b)) then write ('Tupoy')
end
else write('Net');
end.
В десятичной 97 = 1100001 в двоичной