Предмет: Информатика,
автор: Аноним
Помогите решить задачу на PASCAL ABC вот задача Даны числа A, B, C. Проверьте, выполняется ли условие, что все три числа двузначные. вводные данные 1) 35 35 35 выводные true вводные 2) 35 3 5 выводные false 3) вводные 99 99 -99 выводные TRUE срочно надо пж ребят
Ответы
Автор ответа:
2
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.
alice002:
переделанная строчка , не увидела про минусы условие 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 ;
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.
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.
Я не помню поддерживает ли квадраты, но идея вы поняли
Похожие вопросы
Предмет: История,
автор: Аноним
Предмет: Музыка,
автор: plusninaemilia3
Предмет: Английский язык,
автор: sssallvr
Предмет: История,
автор: vladvladproni
Предмет: Математика,
автор: Аноним