tutotveti.ru
Предметы
Биология
Українська мова
Музыка
Французский язык
Физика
МХК
Обществознание
Психология
ОБЖ
Право
Беларуская мова
Литература
Химия
Українська література
Экономика
Немецкий язык
География
Информатика
Қазақ тiлi
Геометрия
Английский язык
Русский язык
Окружающий мир
Алгебра
История
Другие предметы
Видео-ответы
ПОИСК
Войти
Регистрация
Информатика
Кто сможет с по программированию?
Кто сможет с по программированию? напишите программу в паскале для следующей (это 11 класс, тема "массивы"): заполнить массив а[15] числами 106, 112, 118, 124,
ilja2099
2 13.08.2019 12:00
0
Ответы
ohwer
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.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
Emmaskr
21.05.2020 18:19
Сколько различных цветов можно получить из 3 базовых?...
Alise1sav
21.05.2020 18:19
Плагиат деген не?? Көмектесіңдерші...
vs12
21.05.2020 18:18
№7 Опре¬де¬ли¬те зна¬че¬ние пе¬ре¬мен¬ной a после вы¬пол¬не¬ния алгоритма:а = 6b = 1b = a/2*ba = 2*а + 3*b В от¬ве¬те ука¬жи¬те одно целое число — значение пе¬ре¬мен¬ной...
GoodArtur
14.12.2020 17:20
Кроссворд на тему Компьютерные сети ПО ГОРИЗОНТАЛИ 1.Сетевое устройство, реализующее контроль за поступающей в локальную сеть и выходящей из нее информацией и обеспечивающее...
MostepanovaJanna
14.12.2020 17:20
На языке С(си). Написать функцию float minVal(float a, float b, float c), которая возвращает наименьшее из трех чисел с плавающей точкой. Числа вводятся с клавиатуры....
asovgira
14.12.2020 17:20
Java. Дана матрица размера M × N и целое число K (1 ≤ K ≤ N). Найти сумму и произведение элементов K-й строки данной матрицы....
Даниэль1011
14.12.2020 17:20
Типи аудіо- та відео файлів...
лиз87
14.12.2020 17:20
Подставь в каждое суждение подходящую по смыслу логическую связку. Для того чтобы число делилось на 4, , чтобы оно делилось на 2.вопрос не обходимо и достаточно чтобы...
ikujtdhc
14.12.2020 17:19
Собери информациюоб анимации в интернете 3 4 предложения...
leda2003
14.12.2020 17:19
Напишите программу с интерфейсом visual basic Ввести температуру в помещении. Вывести комментарий: жарко тепло прохладно и холодно. Шкала определяется самостоятельно....
Популярные вопросы
2поезда вышли в разное время навстречу друг другу из 2 х городов...
3
Дроби к наименьшему общему знаменателю 2-3и1-7 3-5и1-6 5-11и3-4 1-6и1-7...
2
Запишите выражение без скобок и найди его значение: 25+(-25)-)=...
2
Найдите модуль каждого из чисел: 12,5; - 12,5; 0,8; - 9 15/17; -6;...
1
Органические вещества из неорганических : 1) растения 2) вирусы 3)...
1
По кокое число ( мн.ч.,ед.ч.,мн.ч.ед.ч)у : темнота,ворота,капель,растение,золото,праздник,мрак,потемки,каникулы,настроение,шорох,молодежь,оттепель,доска,просмотор,боязнь,хворост,свекла,молоко,бегство,будни,цемент,сахар,призвание,детство....
2
Произведение равно 7,первый множитель 3.найди второй множитель...
2
2)из одного посёлка одновременно в противоположных напр. выехали...
2
Решить уравнение с модулем 3-/х-1/+9=30...
2
Отдых на природе 5-6 пред сочинение на казахском...
3
// 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.