Форум программистов, компьютерный форум, киберфорум
PascalABC.NET
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.97/163: Рейтинг темы: голосов - 163, средняя оценка - 4.97
0 / 0 / 0
Регистрация: 17.02.2019
Сообщений: 4
1

Получить случайное трехзначное число и вывести его отдельные цифры

17.02.2019, 10:21. Просмотров 30913. Ответов 1
Метки нет (Все метки)


Получить случайное трехзначное число и вывести его отдельные цифры :
получено число 123
сотни 1
десятки 2
единицы 3

Добавлено через 21 минуту
Pascal
1
2
3
4
5
6
7
8
9
10
11
var a,b,c,x:integer;
 begin
 x:=random (899)+100;
 writeln ( ' получено число ',x);
 a:=x div 100;
 b:=( x mod 100) div 10;
 c:= x mod 10;
 writeln ( ' сотни ',a);
 writeln(' десятки' ,b);
 writeln('единицы' ,c);
 end.
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
17.02.2019, 10:21
Ответы с готовыми решениями:

Получить случайное трехзначное число и вывести через запятую его отдельные цифры
Получить случайное трехзначное число и вывести через запятую его отдельные цифры. Пример:...

Сгенерировать случайное трехзначное число и вывести на экран их сумму и произведение этих чисел
Сгенерировать случайное трехзначное число и вывести на экран их сумму и произведение этих чисел.

С клавиатуры вводится трёхзначное число. Нужно вывести ответ «Да», если все его цифры четные, и ответ «Нет» в остальных
С клавиатуры вводится трёхзначное число. Нужно вывести ответ «Да», если все его цифры четные, и...

Дано натуральное трехзначное число n. Переставить его цифры так, чтобы образовалось максимальное число, записанное теми же цифрами.
Дано натуральное трехзначное число n. Переставить его цифры так, чтобы образовалось максимальное...

1
Модератор
62928 / 46949 / 32354
Регистрация: 18.05.2008
Сообщений: 113,761
17.02.2019, 10:28 2
Лучший ответ Сообщение было отмечено investigtor как решение

Решение

Pascal
1
2
3
4
5
6
7
8
var x:integer;
begin
x:=100+random(900);
writeln ('получено число ',x);
writeln ('сотни ',x div 100);
writeln('десятки ',x div 10 mod 10);
writeln('единицы ',x mod 10);
end.
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
17.02.2019, 10:28

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь или здесь.

Пользователь вводит с клавиатуры трехзначное число. Разбить число на цифры, вывести их на экран,
посчитать их сумму, произведение и среднее арифметическое (важно: выполнить с использованием цикла)

Программа, которая вводит трёхзначное число и разбивает его на цифры
Напишите программу, которая вводит трёхзначное число и разбивает его на цифры. Например, при вводе...

Какое трехзначное число равно кубу цифры его единиц
Какое трехзначное число равно кубу цифры его единиц, а также квадрату числа, составленного из его...

Дано трехзначное число. Верно ли, что все его цифры четные
1. Дано трехзначное число. Верно ли, что все его цифры четные .На форме


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.