Помощь - Поиск - Пользователи - Календарь
Полная версия: составить логическое вырожение
Форум «Всё о Паскале» > Pascal, Object Pascal > Задачи
Гость_андрей
Составить логическое вырожение значение которого равно True, если высказывание истинно
и False, если ложно.
Каждая следующая цифра данного трёхзначного натурального числа на единицу больше предыдущего.
APAL
Кажись вот так:
Если k - заданное трехзначное число
((k div 100)+1)=((k mod 100) div 10) and ((k div 100)+2)=((k mod 100) mod 10))
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.