Войти
Регистрация
Спроси ai-bota
В
Все
У
Українська література
Г
Геометрия
Д
Другие предметы
Э
Экономика
Г
География
О
ОБЖ
М
Математика
М
МХК
Х
Химия
Қ
Қазақ тiлi
Л
Литература
У
Українська мова
О
Обществознание
Ф
Физика
А
Английский язык
А
Алгебра
И
История
Б
Беларуская мова
Б
Биология
М
Музыка
П
Право
И
Информатика
П
Психология
В
Видео-ответы
Н
Немецкий язык
Ф
Французский язык
О
Окружающий мир
Р
Русский язык
Показать больше
Показать меньше
irakar03
28.09.2020 11:24 •
Информатика
Кто сможет с по программированию? напишите программу в паскале для следующей (это 11 класс, тема "массивы"): заполнить массив а[15] числами 106, 112, 118, 124,
Ответ:
M1A1T1E1M1AT1I1K
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 оценок)
Популярные вопросы: Информатика
certus
27.01.2020 05:13
Определите сколько цветов в палитре изображения если его обьем равен 22500 байт а размеры изображения...
Misani
31.10.2020 21:38
Найти среднее арифметическое цифр в введенном числе...
lhe
01.08.2020 11:33
X⁸-1010²=a¹⁶ решите (я отметила как быстрее...
Pemo
23.05.2021 18:28
Уровень мысли Время выполнения 20 минут Задания 1. Рассмотрите два изображения. Определите векторную и растровую графику....
4kusssssp08s5c
13.06.2022 01:14
Информатика кто знает незнаете не пишите всякую глупость...
DanilPRO20172007
13.01.2022 19:40
что делает клавиша Ctrl+End Зарание огромное...
аня200414
23.01.2023 02:42
И если можно,объясните как это решается...
S2a0h0i6b
18.03.2023 03:17
и если можно,объясните как это решается...
svistmi20061
14.06.2022 11:29
Выполнения 20 минут Задания 1. Рассмотрите два изображения. Определите векторную и растровую графику. 1. Рассмотрите изображение. Определите эффекты, использование к изображению...
бранли
05.05.2020 19:28
Дано натуральное число n(n 9). Определить его вторую (с начала) цифру. Задачу решить двумя а)с использованием двух операторов цикла; б)с использованием одного оператора цикла....
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
// 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.