Войти
Регистрация
Спроси ai-bota
В
Все
Х
Химия
В
Видео-ответы
А
Алгебра
Г
Геометрия
О
ОБЖ
Д
Другие предметы
У
Українська література
Р
Русский язык
Б
Беларуская мова
У
Українська мова
Э
Экономика
Ф
Физика
М
Математика
Ф
Французский язык
Г
География
И
Информатика
М
МХК
О
Окружающий мир
П
Психология
Н
Немецкий язык
О
Обществознание
П
Право
И
История
М
Музыка
Л
Литература
Қ
Қазақ тiлi
Б
Биология
А
Английский язык
Показать больше
Показать меньше
СтаниславШугаенко
26.05.2023 06:19 •
Информатика
Написать программу в паскаль! 1) вывести n целых случайных чисел из промежутка от 0 до 10 2)вычислить сумму чисел из промежутка от 1 до 10
Ответ:
horarharry
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 оценок)
Ответ:
kostaKOSTAkosta
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 оценок)
Популярные вопросы: Информатика
elnerfaiq
03.06.2021 08:53
Из непрозрачного мешочка вынимают шарики с номерами,и известно,что информационное сообщение о номере шарика несёт 5 битов информации.определите количество шариков в мешочке...
sashkatimoshka
05.05.2022 07:15
Определите истинность логического высказывания: a or not c and b = not a or c, если a=true, b=true, c=false....
PolzoBatelb
05.05.2022 07:15
Сколько битов будет содержать палитра ,если каждый базовый цвет закодировать двумя поподробнее) 15...
Ромашка242526
24.07.2021 15:03
Томенде берилген сойлемдерге 1 жане 2 деген сандардын колданылуы максатын аныктаныз1) пернетакта,сканер,тышкан2)монитор,принтер1)пернетакта,сканер,тышкан2)монитор,принтер1)...
Настасья020704
03.11.2021 00:02
с информатикой только правильно...
meri62
26.02.2023 13:58
Каждая ячейка электронной таблицы получает , состоящий из названия столбца и номера строки, на пересечении которых она находится.Напишите понятие, которое пропущено вместо...
AlexLLG
23.01.2023 07:36
3. Поставил знание выше «слепой веры» мыслитель: а) Роджер Бэкон б) Пьер Абеляр в) Фома Аквинский г) Бернар Клервосский....
zagena09
23.12.2022 16:32
В каком году Чжан Цань направился в усуньское государство?...
knyazik2003
08.04.2020 14:06
230) Прочитайте. Укажите определения. Какие из них произносятся с перечислительной интонацией и допускают вставку между ними союза и?1) Всё серые, карне, синие глазки...
YaShKa111111
08.04.2020 14:06
НУЖНО Як ви розумієте значення вислову «Участь у керуванні країною не тільки право, але й обов’язок»?...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
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