Помогите решить задачу ** PASCAL ABC вот задача Даны числа A, B, C. Проверьте,...

Question

Помогите решить задачу на PASCAL ABC вот задача Даны числа A, B, C. Проверьте, выполняется ли условие, что все три числа двузначные. вводные данные 1) 35 35 35 выводные true вводные 2) 35 3 5 выводные false 3) вводные 99 99 -99 выводные TRUE срочно надо пж ребят

Answer 1

var a, b, c : integer ;

begin

readln(a,b,c);

if (a>=10) and (a<=99) and (b>=10) and (b<=99) and (c>=10) and (c<=99) then</p>

write('true')

else write('false')

end.

Comments

переделанная строчка , не увидела про минусы условие if (a>=10) and (a<=99) and (b>=10) and (b<=99) and (c>=10) and (c<=99) and (a<=-10) and (a>=-99) and (b<=-10) and (b>=-99) and (c<=-10) and (c>=-99) then

---

дааа ойй

---

Лучше такvar a, b, c : integer ;beginreadln(a,b,c);if (((a^2)^1/2)>=10) and (((a^2)^1/2)<=99) and (((b^2)^1/2)>=10) and (((b^2)^1/2)<=99) and (((c^2)^1/2)>=10) and (((c^2)^1/2)<=99) thenwrite('true') else write('false')end.

---

Я не помню поддерживает ли квадраты, но идея вы поняли