Программа в паскале без if,else,while и тому подобные: Определить является ли число...

Question

Программа в паскале без if,else,while и тому подобные:
Определить является ли число однозначным.

Answer 1

Var input:integer;

begin
write('Enter number - ');
readln(input);

case input of
1..9:writeln('Odnozhachnoe!');
else writeln('Error!');
end;

end.

Comments

мы изучаем только тип boolean

---

По проще? Это как? Это и так то легкий способ

---

Ну окей

---

Program

---

без if else while case input of и тому подобное

---

Извини, неудобно через комментарии писать

---

нечего

---

Program DZ9_4;
var a:integer;
b:boolean;
Begin
Readln(a);
b:=(a>0) and (и тут я хочу написать что оно а в десятичной системе);
Writeln(b);
End.

---

Работает?

---

как написать что а в десятичной системе