Войти
Регистрация
Спроси ai-bota
В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия
Показать больше
Показать меньше
olgakoryakina
21.06.2022 16:12 •
Информатика
Напишите программу, вводящую трехзначное число, первая цифра которого равна единице, вторая принадлежит промежутку от 1 до 7, а третья на две единицы больше второй.
Показать ответ
Ответ:
Бика2525
03.08.2020 13:24
Var a,b:byte;
Begin
Randomize;
a:=random(7)+1;
b:=a+2;
Write(1,a,b)
End.
0,0
(0 оценок)
Ответ:
Yarmoshenkobchmd
03.08.2020 13:24
Var a,b,c:integer;
begin
randomize;
a:=1;
b:=random(1,7);
c:=b+2;
writeln (a,b,c);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
mokantatiana
15.08.2021 02:33
Почему для программистов 6.99 это 8?...
julirim013
30.08.2021 11:58
Сколько цветов содержится в палитре изображения 1200*800 писелей, если передача заняла 1500 секунд, а модем передавал со скоростью 5 Кбит в секунду....
Polina09878
01.09.2020 12:33
,быстрее, тест на время! Когда человек получает информацию тактильно? Гладкая поверхность Горячий чай Сладкая конфета Форма стола Холодный пол...
kanumah2
13.11.2022 18:09
Действие компьютера, которое выполняется в один такт (в ответе должно быть 12 букв)...
lobanovartem2
27.05.2020 21:30
с информатикой! Язык программирования C++ I. Написать программу, которая вычисляет значение выражения. Замечания 1) Для вывода результата использовать манипуляторы для форматирования...
karbannikita
27.06.2022 16:59
Апрель ???ИюньВведи ответ:ФM =Разгадай ребусЗнак «=» означает, чтоуказанную букву надозаменить. Количествозапятых справа ЧТОнужно убрать такое жеколичество букв в концеслова.ОТВЕТИТЬ...
dimabos888
16.01.2022 20:04
Могут ли разные объекты описываться одной и той же моделью ? если да то примеры ?...
впнекккккк
08.07.2020 21:35
Обьясните написание не в следующих словосочетаниях...
iradazlnv
08.07.2020 21:35
Из рассказа андерсена, соловей,, нужно выписать 10 качественных и 10 относительных прилагательных....
lenok1067
08.07.2020 21:35
Какой глагол образуется от существительного жалость?...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
Begin
Randomize;
a:=random(7)+1;
b:=a+2;
Write(1,a,b)
End.
begin
randomize;
a:=1;
b:=random(1,7);
c:=b+2;
writeln (a,b,c);
end.