Войти
Регистрация
Спроси ai-bota
SashylikS
12.05.2023 16:41
Кто сможет с по программированию? напишите программу в паскале для следующей (это 11 класс, тема "массивы"): заполнить массив а[15] числами 106, 112, 118, 124,
Нажмите на рекламу ниже и сразу увидите ответ
↓
Популярные вопросы:
myagkixmatveeva
29.08.2020 10:45
Какие операторы записаны верно? program qq var a, b: integer; x, y: real; begin a: = 5; 10: = x; y: = 7,8; b: = 25; x: = 2*(a+y); a: = sqrt(b); end....
Liana03102000
29.08.2020 10:45
Известно, что на каждой странице документа 128 строк, содержащих по 48 символов каждая. сколько страниц в документе, если его информационный объем при условии, что каждый...
yoongiswag
29.08.2020 10:45
Найдите ошибки в программе: program сумма; begin x: = 5+3; write (x); end....
komlevaomg
24.04.2023 22:29
А1. укажите верное высказывание: 1) устройство вывода предназначено для удаления информации; 2) устройство вывода предназначено для программного работой компьютера; 3)...
RPkhf
22.11.2022 03:54
Нужно написать мини-сочинение на тему интернет и я...
Timon198
22.11.2022 03:54
Логические выражения : a) x & y v (x & y) v z б) (a v b & c) v (a v b & не c)v a v не b...
лиза12322
03.04.2021 15:53
Некоторый алгоритм из одной цепочки десятичных цифр получает новую цепочку следующим образом: 1. первая цифра исходной цепочки не меняется; 2. каждая следующая цифра (начиная...
Celestialess32
05.03.2020 15:21
(3 б.) сканер имеет разрешение 512 х 512 dpi. отсканированное изображение размером 8 х 4 дюйма занимает 16 мбайт памяти. чему равна глубина цвета точки (пикселя) отсканированного...
karleusastar
05.03.2020 15:21
Для хранения растрового изображения размером 174×174 пикселей отвели 4 кб памяти. каково максимально возможное число цветов в палитре изображения?...
kotovaann2016
05.04.2022 13:37
1.запишите в десятичной системе счисления целое число, если дан его дополнительный код. 2.выполните сложение этого числа и числа, заданного в десятичной системе счисления,...
Ответ:
Frosterion
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-бота