Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
Lizakisa777
22.02.2021 09:09 •
Информатика
Написать программу в паскаль! 1) вывести n целых случайных чисел из промежутка от 0 до 10 2)вычислить сумму чисел из промежутка от 1 до 10
Показать ответ
Ответ:
kupcovaSvetl
07.10.2020 06:22
1)
var n,i:integer;
begin
readln(n);
for i:=1 to n do write(random(11),' ');
end.
Пример:
10
5 2 9 5 7 2 10 0 1 6
2.
var s,i:integer;
begin
s:=0;
for i:=1 to 10 do s:=s+i;
write('s = ',s);
end.
Результат:
s = 55
0,0
(0 оценок)
Ответ:
feisal
07.10.2020 06:22
// PascalABC.NET 3.3, сборка 1573 от 04.11.2017
// Внимание! Если программа не работает, обновите версию!
1)
begin
SeqRandom(Readinteger,0,10).Println
end.
Пример
13
7 5 6 8 9 9 4 5 7 3 1 7 10
2)
begin
Writeln(1.To(10).Sum)
end.
Результат
55
0,0
(0 оценок)
Популярные вопросы: Информатика
aselznala2004
05.09.2021 08:19
Дано: writeln (s:6:2); Если s=114,07621, то на экране появится ....
Ирина132435
22.12.2020 23:03
У исполнителя Альфа две команды, которым присвоены номера:1.умножить на 3 2.вычти...
элиза29с
24.05.2021 06:55
Чтобы разместить на слайде рисунок необходимо нажать мышью на ......
anyaternovskay
12.12.2020 21:09
Начертите блок-схему к этой программе. Заранее...
лорглролрл
23.03.2022 12:23
Для чего большие программа разбивают на несколько функций?...
ggimat203
09.07.2022 23:38
1. Системное программное обеспечение 1.1. Операционные системы 1.1.1. Windows 1.1.2. Linux 1.1.3. Mac OS 1.2. Сервисные программы 1.2.1. Программы обслуживания дисков 1.2.2....
avetisgrigoryan
19.03.2022 21:58
Робот находится в клетке, расположенной непосредственно под горизонтальной стеной у левого края прохода. Напишите для Робота алгоритм, закрашивающий все клетки, расположенные...
rizvanovagyla3
04.01.2023 22:17
Сколько времени понадобится для ввода в память компьютера романа Р. П. Уоррена «Вся королевская рать» и передачи файла по каналу связи со скоростью 806 400 бит/с? Известно, что...
anastaciarocha
18.08.2020 17:55
10 мб сколько бит только на информатике задали и 15 кб сколько байт? ?...
Yanalime2006
15.04.2020 10:23
Ща8к83у8шкшкащащащшукшшкаш...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
var n,i:integer;
begin
readln(n);
for i:=1 to n do write(random(11),' ');
end.
Пример:
10
5 2 9 5 7 2 10 0 1 6
2.
var s,i:integer;
begin
s:=0;
for i:=1 to 10 do s:=s+i;
write('s = ',s);
end.
Результат:
s = 55
// Внимание! Если программа не работает, обновите версию!
1)
begin
SeqRandom(Readinteger,0,10).Println
end.
Пример
13
7 5 6 8 9 9 4 5 7 3 1 7 10
2)
begin
Writeln(1.To(10).Sum)
end.
Результат
55