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

Определить является ли число однозначным.

Question

Информатика

Агарь

14 декабря, 00:42

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

Определить является ли число однозначным.

+1

Ответы (1)

Знаете ответ на вопрос?

Николка · Answer 1

Var input:integer;

begin

write ('Enter number - ') ;

readln (input) ;

case input of

1 ... 9:writeln ('Odnozhachnoe!') ;

else writeln ('Error!') ;

end;

end.

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

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

Определить является ли число однозначным.