Простая задача еще

[Plague]

чуток переделал:

a:=abs(a+1)-a;
b:=abs(b+1)-b;
c:=abs(c+1)-c;
d:=abs(d+1)-d;
s:=a+b+c+d;
k:=(s+4)/2;

работает для нуля теперь (ноль считает как положительное)

post #18 сам придумал? или post #11 читал?

[_Dmitry]

С отрицательными числами не работает. На единицах проверял?

[Plague]

проверяй лучше
или преведи тесты

[_Dmitry]

Введем а=+3, b=+3, c=-3, d=-3, должны получить 2.
Проверяем:
а=abs(3+1)-3=1,
b=abs(3+1)-3=1,
c=abs(-3+1)-(-3)=5,
d=abs(-3+1)-(-3)=5,
s=1+1+5+5=12,
k=(12+4)/2=8

[Plague]

признаю свою ошибку исправляю

a:=abs(a+1)-abs(a);
b:=abs(b+1)-abs(b);
c:=abs(c+1)-abs(c);
d:=abs(d+1)-abs(d);
s:=a+b+c+d;
k:=(s+4)/2;

спасибо что указал на нее

[puporev]

А сейчас у тебя получается 0.

[mutabor]

работает для нуля теперь (ноль считает как положительное)

а разве ноль это положительное? алгоритм не должен выпадать при нуле, но и считать его положительным (как и отрицательным) имхо неправильно

[Alex21]

Числа вводят с клавы. Но нельзя этими "if" пользоваться. Еще не проходили. Он сразу сказал - у кого if - это значит вам кто-то решал

Все зависит от вашей способности убедить препода, в том, что вы знаете то, что написано.
Видимо ограничения касаются только операторов (if, while, etc...)
Еще раз приведу метод решения через обработку исключений (здесь кстати используется операция корня, которую вы успешно прошли).
В своем учебнике по Паскалю, кстати так и не нашел раздела по исключениям

 
try

a:=sqr(sqrt(a)); //если ноль - положительное число
или
a:=sqr(sqrt(a-1)); // если ноль - не учитывать
inc(kolvo);
except
end;

p.s.: заинтересует? расскажу принцип работы.

[mutabor]

Alex21, ему такое не прокатит, это задание в рамках изучения линейного алгоритма, try except явно не линейный.