Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
nataliarianna29
29.02.2020 23:50 •
Информатика
Кто сможет с по программированию? напишите программу в паскале для следующей (это 11 класс, тема "массивы"): заполнить массив а[15] числами 106, 112, 118, 124,
Показать ответ
Ответ:
Aleks5595
04.10.2020 15:52
1. Современное решение
// PascalABC.NET 3.2, сборка 1353 от 27.11.2016
// Внимание! Если программа не работает, обновите версию!
begin
var a:=106.Step(6).Take(15).ToArray; a.Println
end.
Результат
106 112 118 124 130 136 142 148 154 160 166 172 178 184 190
2. Древнее школьное решение "в лоб"
var
a:array[1..15] of integer;
i,k:integer;
begin
k:=106;
for i:=1 to 15 do begin
a[i]:=k;
k:=k+6;
Write(a[i],' ')
end;
Writeln
end.
3. Усовершенствованное древнее школьное решение.
Последовательность - арифметическая прогрессия с первым членом a₁=106 и разностью d=6.
Тогда
var
a:array[1..15] of integer;
i:integer;
begin
for i:=1 to 15 do begin
a[i]:=100+6*i;
Write(a[i],' ')
end;
Writeln
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
KatonAnton
01.02.2020 04:00
На языке паскаль написать программу выводящую массив натуральных чисел с 1 до 15. , люди добрые. до завтра время дано!...
Наська0123
06.06.2023 04:08
Выполните действия и запишите ответ в десетичной системе исчесления...
Ak1se
03.12.2021 00:59
Вычислите значение выражения: если b не=а, то вычислять (в+2ха): в. в паскале...
nastenka19832
28.04.2022 02:55
802.11g стандартының негізгі кемшіліктерін анықта...
anuta136
08.06.2023 19:15
Отвечаем на вопросы 1. Что такое компьютерный вирус? 2. Назовите методы защиты от компьютерных вирусов. 3. Что такое Wi-Fi? 4. Что такое социальные сети? 5. Какие социальные...
софья20054
25.12.2021 10:21
Укажите название вируса, о котором идет речь:«Устанавливается скрытным путем на компьютеры для сбора информации о пользователе без его ведома» * Программы-черви Программа-шпион...
Svetlanalitv
27.05.2022 10:44
Максат создал реферат и должен передать его учителю. Укажите устройство памяти, которое можно использовать для передачи файла. * CMOS - память Оперативная память Жесткий...
ChemistKNO3
09.08.2020 02:36
Дана информация о файле. Определите размер файла и переведите в соответствующие единицы. ___ байт = ___ бит *...
sharonova71
01.07.2020 21:58
Информатика (кто сделает правильно хотя бы на 80 %) 1.Укажите правильное имя переменной *1)к12)з3)R4)4к2.Укажите правильное имя программы *1)Program2)Programma3)Proga4)Proga-ma3.Какой...
Akosh11
18.02.2022 16:31
Указатель местоположения на экране...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
// PascalABC.NET 3.2, сборка 1353 от 27.11.2016
// Внимание! Если программа не работает, обновите версию!
begin
var a:=106.Step(6).Take(15).ToArray; a.Println
end.
Результат
106 112 118 124 130 136 142 148 154 160 166 172 178 184 190
2. Древнее школьное решение "в лоб"
var
a:array[1..15] of integer;
i,k:integer;
begin
k:=106;
for i:=1 to 15 do begin
a[i]:=k;
k:=k+6;
Write(a[i],' ')
end;
Writeln
end.
3. Усовершенствованное древнее школьное решение.
Последовательность - арифметическая прогрессия с первым членом a₁=106 и разностью d=6.
Тогда
var
a:array[1..15] of integer;
i:integer;
begin
for i:=1 to 15 do begin
a[i]:=100+6*i;
Write(a[i],' ')
end;
Writeln
end.