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.

Answer 2

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

Answer 3

нечего

Answer 4

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

Answer 5

Работает?

Answer 6

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