Войти
Регистрация
Спроси ai-bota
В
Все
У
Українська література
Г
Геометрия
Д
Другие предметы
Э
Экономика
Г
География
О
ОБЖ
М
Математика
М
МХК
Х
Химия
Қ
Қазақ тiлi
Л
Литература
У
Українська мова
О
Обществознание
Ф
Физика
А
Английский язык
А
Алгебра
И
История
Б
Беларуская мова
Б
Биология
М
Музыка
П
Право
И
Информатика
П
Психология
В
Видео-ответы
Н
Немецкий язык
Ф
Французский язык
О
Окружающий мир
Р
Русский язык
Показать больше
Показать меньше
EminAkid
15.05.2022 01:42 •
Информатика
Получить случайное трехзначное число и вывести через пробел его отдельные цифры. в языке програмирование python или pascal
Ответ:
rusnazasly
20.09.2020 18:36
// PascalABC.NET 3.0, сборка 1139 от 10.01.2016
begin
Randomize;
Random(100,999).ToString.Println('').Println;
end.
Тестовое решение:
497
4 9 7
0,0
(0 оценок)
Ответ:
platymax
20.09.2020 18:36
//Pascal ABC.Net 3.0
var a:integer;
s:string;
begin
randomize;
a:=random(100,999);
str(a,s);
writeln(s[1],' ',s[2],' ',s[3]);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
gghggggg1
03.12.2021 13:59
Напишите программу. уменьшение значения переменной y на один....
alino4ka2012
03.07.2022 23:23
кто чем может кто чем может >...
Нурюс
18.06.2020 02:16
Дан рекурсивный алгоритм: def f(n): print( * ) if n 0: f(n // 2) f(n // 3) Сколько символов звездочка будет напечатано на экране при выполнении вызова f(8)?...
ytytuty
31.12.2021 14:38
С цикла for вычислите значение такого выражения: 1*2+2*3+3*4+...36*37....
nadezhda980
28.01.2021 16:42
Надо скачать 46.3гб скорость 400к/в...
vasukulia
24.08.2020 08:24
Какими професиями владеет компьютер? подготовьте краткое сообщен е об одной из них...
babaevgleb70
03.04.2020 01:06
Кто такой покупатель?его обязанности ?...
YounMing
16.10.2022 06:02
Берілген сөздердің қайсысы негізгі етістік, қайсысы туынды етістік екендігін анықта. Үйрен, отыр, төсе, қоюланып, ағарды, жеткіз, аула,қара, жүгір, баратын, кел, ал, көмектес,...
133fdsf7za
07.12.2021 21:53
Добрый день сделать таблицу правильно. Заранее...
alina0901200432
14.08.2020 21:13
7090 кг= ...тон ... кг2376 кг= ... центнеров ...кг...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
begin
Randomize;
Random(100,999).ToString.Println('').Println;
end.
Тестовое решение:
497
4 9 7
var a:integer;
s:string;
begin
randomize;
a:=random(100,999);
str(a,s);
writeln(s[1],' ',s[2],' ',s[3]);
end.