Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
ilonabunduk
12.01.2021 07:48 •
Информатика
Напишите программу, которая будет формировать случайным образом и выводить на экран 5 чисел из отрезка {-10; 10} напишите программу, , !
Показать ответ
Ответ:
PomogyBratan
07.10.2020 18:32
// PascalABC.NET 3.3, сборка 1623 от 16.01.2018
// Внимание! Если программа не работает, обновите версию!
begin
SeqRandom(5,-10,10).Println
end.
Пример во вложении.
0,0
(0 оценок)
Ответ:
Amina5155
07.10.2020 18:32
Program Rick_and_Morty;
var x,a:integer;
Begin
a:=random(21)-10;
write('введите количество чисел: ');
readln (x);
while x>0 do
begin
a:=random(21)-10;
write(a,', ');
x:=x-1;
end;
writeln('');
writeln('конец');
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
Almazik20056
10.01.2023 10:48
10 кл. Доброго времен суток, нужна ваша ! Нужно составить блок-схему. INPUT m (kg) , m INPUT h I = m / h^2 IF I 18 Then PRINT nedost End if If i 18 and I = 25 then Print norma End...
Nezhdanchik228
12.06.2020 20:39
Склавиатуры вводится целое четырёхзначное число. написать программу нахождения произведения 2-ой и 3-ей цифр числа ...
марко19
22.03.2021 03:57
Выберите верные типы диаграмм: а) гистограмма б) гиперссылка в) график г) линейчатая д) сводная е) для печати...
Gggg25632
22.12.2020 21:34
Решите графически в среде электронных таблиц систему уравнений:...
alexstew1
06.09.2021 23:09
Складіть проект у середовищі Scratch 2, у якому виконавець намалює три квадрати різних кольорів зі сторонами 100 кроків, якщо до нього доторкається вказівник миші...
kurilkodanil
27.01.2020 07:29
Выберите правильный порядок команд для создания архива из папки * Выделить папку - Нажать правой кнопкой мыши - добавить в архив - Введите имя и параметры архива - нажмите кнопку...
tdtwdgtduqgcggggc
07.07.2022 20:04
Сколько байт будет отведено для хранения данного числа? Дано число: 284....
tsibin1982
28.12.2020 13:49
Написать эссе . хочу ли я жить в серебряном веке? почему?...
ппво
28.12.2020 13:49
Установіть відповідність між структурами та рівнями організації живої матерії: а)листяний ліс,б)конвалія травнева,в)листок,г)хлорофіл 1) молекулярний 2)клітиний 3)органний 4)організмовий...
otvet12313434
28.12.2020 13:49
Укажите правельный ответ натрий фтор калий бром гелий аргон неон a галогены b инертные газы c лужные металы d галогены инертные газы и лужные металы поровну...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
// Внимание! Если программа не работает, обновите версию!
begin
SeqRandom(5,-10,10).Println
end.
Пример во вложении.
var x,a:integer;
Begin
a:=random(21)-10;
write('введите количество чисел: ');
readln (x);
while x>0 do
begin
a:=random(21)-10;
write(a,', ');
x:=x-1;
end;
writeln('');
writeln('конец');
end.