Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
хюрем3
17.03.2022 04:00 •
Информатика
Запишите на языке паскаль программу решения . считайте количество жильцов дома случайным числом из диапазона от 50 до 200 человек, а число домов n=30.
Показать ответ
Ответ:
nevidomskyamarg
17.07.2020 06:56
Var
i:integer;
begin
randomize;
writeln('Количество жильцов:');
for i:=1 to 30 do
writeln('Дом ',i,' - ',random(151)+50);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
Vinner0508
09.03.2023 00:03
Рассчитайте информационный объём текста состоящего из 200 символов если мощность алфавита составляет 128 символов. ответ выразите в байтах.; Текст состоит из 32 строк по...
alpengold1310
04.12.2022 16:20
Мистер Фокс перекодировал послание на русском языке с 16-битной кодировки Unicode в 8-мибитную кодировку КОИ-8. Объем файла в ходе данного процесса уменьшился на $32$ байта....
DenGamer11
10.03.2020 21:24
Упростите логическое выражение...
Angelok200311
19.12.2020 22:17
Мистер Фокс решил оцифровать трёхминутную музыку на компьютере, имеющем возможность одноканальной (моно) записи с частотой дискретизации 11 кГц и глубиной кодирования 24...
илья1948
17.09.2020 22:28
Написать цикл с пост условием решения задач на языке паскаль. Даны действительные числа x, y. Вывести в порядке убывания все целые числа, расположенные между х и у, а также...
valia622
05.08.2022 19:30
Сравнение дробей Напишите программу, позволяющую сравнить две обыкновенные дроби. Ввод На ввод подается четыре целых положительных числа (все числа не превышают 10^4): в...
severina3
01.03.2020 18:23
Как осуществляется запуск презентаций в программе power point? 1. Нажмите клавишу F9 2. Контектное меню слайд/ Раскадровка 3. Меню: слайд -шоу/с начала 4. Нажатие клавиши...
ponomarevdenisow2kh1
21.04.2022 20:20
ПЕРЕНЕСТИ НА ПАЙТОН,Даны натуральные числа от 1 до 50. Определите сумму тех из них, которые делятся на 5 или на 7.СА var i,k: integer; begin k:=0; For i:=1 to 50 do If (i...
Рэйн0165
22.02.2021 06:54
Информатика, аторы учебника К. Ю. Поляков, E.A.Ерёмин, параграф 38 Во и задания с во до 20.04.2020 1. Объясните, в каких случаях нужно использовать цикл «N раз», а в каких...
Юлькач
07.01.2023 18:11
Сколько раз выполняется тело цикла для каждого фрагмента программы 1)x:=7 x:= x+1 while x 0 do x:=x-12) x:=9x:= x+1 while x =0 do x:=x-23) x:= -1x:= x+1 while x =0 do x:=x-24)x:=...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
i:integer;
begin
randomize;
writeln('Количество жильцов:');
for i:=1 to 30 do
writeln('Дом ',i,' - ',random(151)+50);
end.