Даю 30 балов помогите с информатикой. надо написать программу в Паскаль АВС.

Question

Даю 30 балов помогите с информатикой. надо написать программу в Паскаль АВС.

---

Answer 1

Var a,b:real;
begin
readln(a);
if (a>=0)or(a>100) then b:=sqrt(a) // (a>100) здесь лишнее!
else b:=abs(a);
writeln(b:5:2);
end.

Пример:
20
4.47

Comments

if (a>=0)or(a>100) then b:=sqrt(a) // (a>100) здесь лишнее!

---

как это понять ? что здесь лишнее

---

обьясни

---

Число которое больше 100 не может быть отрицательным

Answer 2

Var a,res: double;
begin
   a := 100;       
if a>100  then res := sqrt(a)   
else res:=abs(a);       
writeln(res:5:2)   
end.