Предмет: Информатика,
автор: Аноним
Помогите решить задачу на 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.
Я не помню поддерживает ли квадраты, но идея вы поняли
Похожие вопросы
Предмет: Обществознание,
автор: chernichkaidk
Предмет: Биология,
автор: svetlanabojko651
Предмет: Английский язык,
автор: D12Dash
Предмет: История,
автор: vladvladproni
Предмет: Математика,
автор: Аноним