Войти
Регистрация
Спроси ai-bota
MrNikitkahelp
29.04.2023 14:06
Кто сможет с по программированию? напишите программу в паскале для следующей (это 11 класс, тема "массивы"): заполнить массив а[15] числами 106, 112, 118, 124,
Нажмите на рекламу ниже и сразу увидите ответ
↓
Популярные вопросы:
KoNetik2020
29.07.2021 13:16
Основные положения концепции электронного государства...
nika344245335
30.05.2023 16:42
Постройте таблицы истинности в excel для следующих логических выражений: а→в+с (а→в)+с...
Maksim24k
30.05.2023 16:42
Напишите программу в logo writer для создания паутины...
School13kursk
25.03.2023 06:04
Сколько цветов можно получить, если колличевство бит для их кодировки равно 5? а) 32, б)8, в)16...
рома1325
19.09.2022 01:57
Запишите, какие остатки могут получиться при делении на 7...
димитриусис
08.09.2020 20:29
Розказ о себе как тебя зовут сколько тебе лет...
dominocos
08.09.2020 20:29
Коля решил налить в банку 6 стаканов воды но в банку вошло на 2 стакана воды меньше. сколько стаканов воды вошло в банку? саша и ира решили эту так: саша: 6-2=4 ира: 6+2=8 кто неправильно...
ulyanablem
08.09.2020 20:29
Отметьти в тетради точки а и с.проведите через них прямую.отметьте на прямой ас еще три точки и обозначти их.отметьти четыри точки,не лежащие на прямой ас ; обозначти их...
Uuuuuu2006
08.09.2020 20:29
Вкаком порядке выполняются действия в выражениях, где содержатся только действия сложения и вычитания. установите порядок действия. первый пример: k-a+d-c k-(a+d-c) k-(a+d)-c. второй...
lliza123
08.09.2020 20:29
Подчеркни в стихотворении все слова написание которых подчиняеться правилу чу-щу пиши через у. этому ключу. сейчас я радио включу. я всех певцов перекричу. могу свистеть стучать дверьми....
Ответ:
babohka1
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 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота