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

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

Задать свой вопрос
1 ответ
Var input:integer;

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

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

end.

Надежда Бобырь
мы изучаем только тип boolean
Леша Куслан
По проще? Это как? Это и так то легкий способ
Vika Lameka
Ну окей
Jana Negrillo
Program
Эмилия
без if else while case input of и тому сходственное
Олеся Яныгина
Извини, неловко через комменты писать
Вован Хаориков
нечего
Никитка Галпин
Program DZ9_4;var a:integer; b:boolean;BeginReadln(a);b:=(a>0) and (и тут я желаю написать что оно а в десятичной системе);Writeln(b);End.
Денис Крутилов
Работает?
Валерий Сеньчуков
как написать что а в десятичной системе
, оставишь ответ?
Имя:*
E-Mail:


Последние вопросы

Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт