Как проверить двузначное ли число паскаль
Быстрый переход в группу «Пользователи», без надобности написания постов и ожидания.
Покупка дает возможность:
Быть полноправным участником форума
Нормальное копирование кода
Создавать темы
Скачивать файлы
Доступ к архиву Pawno-Info
Маппинг для сервера
Если вы хотите обновить Ваш сервер новыми доработками — то зайдите в наш раздел. Большой выбор готовых решений от наших пользователей
Моды для сервера
Огромный выбор различных модификаций для Вашего сервера. Пролистайте эти темы! Возможно именно там Вы найдете то, что искали уже давно.
Программы для скриптера
Подборка удобных программ для скриптера
- Форумы
- Языки программирования
- Delphi, Pascal, Python
- Готовые решения
Вы используете устаревший браузер. Этот и другие сайты могут отображаться в нём некорректно.
Вам необходимо обновить браузер или попробовать использовать другой.
#Azamat
Изучающий
Пользователь
Регистрация 18 Ноя 2015 Сообщения 675 Лучшие ответы 0 Репутация 86 Адрес г.Уфа
Программа определяет двузначна число или нет.
var x: integer; begin write('Введите x: '); readln(x); if (x>=10) and (x<=100) then writeln('Двузначное число') else writeln('Не двузначное число') end.Автор: Неизвестен
Поделиться:
- Партнеры Pawno Info
- Условия и правила
- Политика конфиденциальности
- Помощь
- Главная
- RSS
О нас
"Pawno Info" - портал о программировании номер один. Начните с нами изучать эти великолепные и бесконечные виртуальные миры. Научитесь создавать функции и скрипты используя наши уроки по программированию на различных языках. Задавайте вопросы которые Вас интересуют и получайте ответы от наших профессионалов. Будьте с нами. Будьте там, где лучшее.
Наши ссылки
Статистика форума
Темы 196,759 Сообщения 1,356,262 Пользователи 110,545 Новый пользователь tr1llsi
Портал о программировании Pawno-Info.Ru
Copyright © Pawno Info 2010-2024. Все права защищены
Created by Giness
Уважаемый Гость.
Пожалуйста - воздержитесь от любых комментариев на форуме относительно ситуации в мире.
В личных сообщениях, в темах и где бы то не было.
Помните - это закончится в любом случае, а слова, сказанные (или написанные) Вами - не забудутся никогда.
МЫ ЗА МИР.
(Любые сообщения относительно ситуации в мире(не важно с каким смыслом) буду удаляться. А пользователи - блокироваться безвозвратно. )
PASCAL. Дано двузначное число. Определить, какая из его цифр больше, первая или вторая.
Дано двузначное число. Определить, какая из его цифр больше, первая или вторая. (Предусмотреть возможность их равенства).
Лучший ответ
var x: integer;
begin
write ('x=');
readln (x);
case (x div 10) - (x mod 10) of
-9..-1: writeln ('Вторая цифра больше');
0: writeln ('Цифры равны');
1..9: writeln ('Первая цифра больше');
end;
end.
Остальные ответы
Чтобы определить вторую цифру - берешь остаток от деления на 10. Это и есть вторая цифра. Присваиваешь это значение переменной x2. Первая цифра - это из изначального двузначного числа отнять вторую цифру (x2) и разделить полученное значение на 10. (Либо просто использовать целочисленное деление 2значного числа на 10 и получить первую цифру). Результат присвоить переменной x1. А затем через условия сравнивать эти x1 и x2 и выводить результат.
b:=a mod 10;
a:=a div 10;
if a>b then writeln('Первая цифра >')
else writeln('Вторая цифра больше');
end.
b:=n mod 10; a:=n div 10; if a > b then writeln('a > b') else if a = b then writeln('a = b') else writeln('a < b');
var
x: integer;
a,b:byte;
s1,s2,s3:string;
begin
s1:='Первая цифра больше';
s2:='Вторая цифра больше';
s3:='Цифры равны';
repeat
write('x=');
readln(x)
until (x>=10) and (x<100);
a:=x div 10;
b:=x mod 10;
if aif a=b then writeln(s3) else
writeln(s1)
end.
Var a,x,z,l:integer; s:string;
begin
readln(a);
str(a,s);
val(s[1],x,l);
val(s[2],z,l);
if x>z then writeln(x,' больше ',z) else writeln(z,' больше ',x);
end.
Ошибка сервера в приложении '/'.
Описание: На сервере возникла ошибка приложения. Текущая пользовательская настройка ошибок для этого приложения не позволяет удаленно просматривать сведения об ошибке данного приложения (из соображений безопасности). Однако, сведения можно просматривать в браузерах, запущенных на локальном сервере.
Сведения: Для разрешения просмотра сведений данного сообщения об ошибке на локальном сервере создайте тег в файле конфигурации "web.config", который находится в корневом каталоге текущего веб-приложения. В теге следует задать атрибут "mode" со значением "Off".
Примечания: Отображаемую в данный момент страницу ошибок можно заменить на пользовательскую страницу ошибок, изменив атрибут "defaultRedirect" тега конфигурации приложения таким образом, чтобы он содержал URL-адрес пользовательской страницы ошибок.
"Переворот" числа
Вводится число. Преобразовать его в другое число, цифры которого будут следовать в обратном порядке по сравнению с введенным числом.
- n , m - исходное число и "перевернутое";
- a - временное хранение очередной цифры, которая "переносится" из одного числа в другое.
Алгоритм решения задачи сводится к следующему циклу: 1) взять последнюю цифру в первом числе; 2) записать ее в конец второго; 3) убрать последнюю цифру из первого числа. Таким образом последняя цифра первого числа окажется первой цифрой во втором; предпоследняя цифра первого числа - второй во втором числе и так далее
- Находим остаток ( mod ) от деления числа n на 10. Результат сохраняем в переменной a .
- На каждом шаге разрядность m надо увеличивать на единицу, то есть умножать на 10. Например, если было число 56, то, умножив его на 10, получим 560. Далее следует прибавить остаток из переменной a , например, 3. В итоге получим 563. Получаем формулу: m = m * 10 + a .
- Делим n нацело на 10, тем самым избавляемся от младшего разряда.
Программа на языке Паскаль:
var n, m: longint; a: byte; begin readln(n); m := 0; while n > 0 do begin a := n mod 10; m := m * 10 + a; n := n div 10; end; writeln(m); end.Пример выполнения программы:
40013 31004