tutotveti.ru
Предметы
Биология
Українська мова
Музыка
Французский язык
Физика
МХК
Обществознание
Психология
ОБЖ
Право
Беларуская мова
Литература
Химия
Українська література
Экономика
Немецкий язык
География
Информатика
Қазақ тiлi
Геометрия
Английский язык
Русский язык
Окружающий мир
Алгебра
История
Другие предметы
Видео-ответы
ПОИСК
Войти
Регистрация
Информатика
Напишите программу, которая
Напишите программу, которая заполняет массив из n элементов последовательными натуральными числами, начиная с x , и выводит его. на языке pascal
бог20031
3 03.08.2019 18:50
10
Ответы
kolomietslina
03.10.2020 20:44
Var ar: array[1..10000]of integer;
i, n, x: integer;
begin
write('Введите N:');
read(n);
write('Введите X:');
read(x);
for i := 1 to n do
begin
ar[i] := x;
x:=x+1;
write(ar[i], ' ');
end;
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
yjtkf
25.10.2021 23:30
Какие компьютерные сетевые топологии вы запомнили?...
святославовна
25.10.2021 23:40
Решите задачу robowin без цикла повтори на русском языке , как можно быстрее)...
Оно8885858855
09.07.2019 12:10
Var s: string; k, i: integer; begin readln(s); k: =0; for i: =1 to length(s) do if s[i]= . then k: =k+1; writeln( количество точек в строке= ,k); end. изменить программу так,...
liza1439
09.07.2019 12:10
Цветное(8 цветов) изображение имеет размер 100×100 точек. какой объем памяти займет это изображение...
Decabrina6666
09.07.2019 12:10
ответ на пример 10001012,11110102,1101112. двоичный код....
помощь155
18.02.2020 22:16
В файле unit1.cpp напишите функцию int DeleteDuplicates(int r[], int n){ которая удаляет дубликатные значения из несортированного массива r длиной n. Функция возвращает длину...
kvas1985
18.02.2020 22:15
Написать программу вывода последовательности букв: A AB ABC ABCXYZ...
13Sasharubakova
18.02.2020 22:13
Информатика 8 класс Уровень синтез...
анна2246
18.02.2020 22:11
Дана последовательность натуральных чисел (до 50), найти числа....
berteret6
30.08.2019 23:40
Составить программу. введите 7 чисел. найти сумму больше 3 и произведение меньше 3....
Популярные вопросы
ЗАДАНИЕ 3.Установите соответствие между функциями и их графіками: b1) y=3x-2...
2
Многие учебные заведения внедряют АСУ. Это, например, системы автомати-...
1
Выберите одну из предложенных тем и напишите творческую работу.Объём работы...
2
Упражнение 1. 1. Девочка (не)расчесана. 2. (Не)убранные, а разбросанные...
3
Упростите выражение 2/5(2 1/2x-1 4/2y )-6/25×(4 1/6x3)...
2
Кто такие чжурчжени? Как называется государство, которое они создали?...
1
Упражнение 6 из 15 все на картинке...
1
очень нужно сор по Английскому famous movie’ Life of Pi’ and do the task...
3
по математике степени ,смотреть скрин...
2
Ата анадан сұхбат алу Дам лучший ответ...
2
i, n, x: integer;
begin
write('Введите N:');
read(n);
write('Введите X:');
read(x);
for i := 1 to n do
begin
ar[i] := x;
x:=x+1;
write(ar[i], ' ');
end;
end.