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

write('true')

else write('false')

end.

Answer 2

переделанная строчка , не увидела про минусы условие 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

Answer 3

я не много изменил и получилось правильно if (a>=10) and (a<=99) and (b>=10) and (b<=99) and (c>=10) and (c<=99) or (c<=-9) and (c>=-100)or (b<=-9) and (b>=-100) then СПАСИБО

Answer 4

дааа ойй

Answer 5

Лучше так

var a, b, c : integer ;

begin

readln(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) then

write('true')

else write('false')

end.

Answer 6

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