Нужно определить состав трехзначного числа и записать в Pascal Abc
5-9 класс
|
var
a,i:integer;
begin
write('Введите число:');
readln(a);
writeln('Единицы: ',a mod 10);
a:=a div 10;
writeln('Десятые: ',a mod 10);
writeln('Сотые: ',a div 10);
readln;
end.
Другие вопросы из категории
Пароль от почтового ящика в виде четырёхзначного числа Вася зашифровал так: цифры, занимающие четные разряды (нумерация разрядов ведётся справа налево начиная с нуля), циклически сдвигаются вправо, а нечётные - влево на количество позиций, равных номеру разряда. Так, например, циклический сдвиг цифры 7 на четыре позиции вправо даёт нам 1 ( 7 - 8 - 9 - 0 - 1 ). Затем из нечётных цифр вычитается, а у чётным прибавляется 1. В результате получилось число 3216. Определите пароль от электронной почты Васи.
Читайте также
2)Дано натуральное трехзначное число N
виде 3+2*10+1*10*10. Воспользовавшись этой информацией, создайте программу,
которая, получая от пользователя трехзначное число, будет определять из каких цифр
оно состоит и выводить их через пробел (например, 1_2_3).
1) есть ли среди цифр заданного трехзначного числа одинаковые;
Пример входных данных
123 нет
121 да
222 да
2) является ли число '' перевертышем" , т.е. числом , десятичная запись которого читается одинаково слева направо и справа налево.
Пример входных данных
122 нет
121 перевертыш
222 перевертыш
Пожалуйста с примером!!!
Заранее большое спасибо
1. Определить есть ли в составе трехзначного числа одинаковые цифры.
2. Вводятся два числа,определить одного они знака или нет.
3. Определить принадлежит ли х отрезку от 1 до 5. Границы входят в интеграл.
4. Определить является ли автобусный билет счастливым.
5. Является ли год с порядковым номером х високосным или нет.