Вход
Регистрация
Спроси Mozg AI
М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
.....больше.....
..меньше..
SofaCat1231
18.02.2022 07:29 •
Информатика
Дано натуральное число n(водиться с клавиатуры). написать программу, выводящую на экран натуральные числа от 1 до n
👇
Увидеть ответ
Ответ:
алина3759
18.02.2022
Program Task;
Var i, N: Integer;
Begin
Write('N = ');
ReadLn(N);
For i := 1 To N Do
Write(i, ' ');
ReadLn;
End.
4,4
(23 оценок)
Открыть все ответы
Ответ:
Pomogite23102017
18.02.2022
Program example;
const
A=30;
Nmin:=-100; // минимальный параметр
Nmax:=100; //максимальный
var
flag_max : integer;
flag_min : integer;
i. jmin,jmax : integer; //счетчики
Randomize;
array max[A];
//заполняем случайніми числами диапозон -100 +100
for i=1 do A do begin max=:= Random (Nmin + 1) - 2 * Nmax; end;
//ищим максимальный элемент
for i=1 do A do begin if max>max[i+1] then begin flag_max:=max
jmax:=i; end; else begin flag_max:=max[i+1];
jmax:=i; end; end;
//минимальный элемент
for i=1 do A do begin if max>max[i+1] then begin flag_min:=max[i+1]
jmin:=i; end; else begin flag_min:=max; jmin:=i; end; end;
//подсчитываем сумму
for i=jmin do jmax-1 do begin max:=max[i+1] end;
//сумма чисел в рандовом массиве между макс и мин єлементом
write('сума',max);
4,6
(49 оценок)
Ответ:
patokina021
18.02.2022
Program example;
const
A=30;
Nmin:=-100; // минимальный параметр
Nmax:=100; //максимальный
var
flag_max : integer;
flag_min : integer;
i. jmin,jmax : integer; //счетчики
Randomize;
array max[A];
//заполняем случайніми числами диапозон -100 +100
for i=1 do A do begin max=:= Random (Nmin + 1) - 2 * Nmax; end;
//ищим максимальный элемент
for i=1 do A do begin if max>max[i+1] then begin flag_max:=max
jmax:=i; end; else begin flag_max:=max[i+1];
jmax:=i; end; end;
//минимальный элемент
for i=1 do A do begin if max>max[i+1] then begin flag_min:=max[i+1]
jmin:=i; end; else begin flag_min:=max; jmin:=i; end; end;
//подсчитываем сумму
for i=jmin do jmax-1 do begin max:=max[i+1] end;
//сумма чисел в рандовом массиве между макс и мин єлементом
write('сума',max);
4,8
(75 оценок)
Это интересно:
Д
Дом-и-сад
02.10.2020
Как правильно клеить обои и избежать ошибок...
З
Здоровье
10.08.2022
Как справиться с болью в бедре и качественно выспаться...
К
Кулинария-и-гостеприимство
19.09.2022
Секреты правильного измельчения чеснока...
К
Кулинария-и-гостеприимство
27.12.2022
Как сушить грецкие орехи: советы и рекомендации...
К
Компьютеры-и-электроника
15.10.2020
Секреты настройки Safari: как настроить основные параметры...
К
Кулинария-и-гостеприимство
23.01.2021
Простой и вкусный рецепт: как приготовить жаркое из оленины в мультиварке...
З
Здоровье
25.01.2023
Как оправиться от плохого сна...
Д
Дом-и-сад
17.11.2021
Как открыть окно, которое заклинило: советы и инструкции...
К
Кулинария-и-гостеприимство
25.05.2022
Как приготовить Джелло печенья: легкий и вкусный десерт для всей семьи...
К
Компьютеры-и-электроника
27.09.2022
Как исправить застрявший пиксель на ЖК–мониторе?...
Новые ответы от MOGZ: Информатика
metior
20.09.2021
1. За до мови Python складіть програму для розв язування задачі: Визначте, яке з чисел більше (див. - мал.Порівняння чисел) ( ів) 2. За до мови Python складіть програму для...
ЕваЛюцифер
28.05.2020
14.Запишите полное имя файла Вальс.way, расположенного в папке Классика, которая находится в папке Музыка на диске Е. Укажите путь к файлу. Е....
ordal2
04.08.2021
Паскаль. 1) Написать программу, определяющую удовлетворяет ли заданный массив условию последовательности Фибоначчи. 2) Написать программу, вычисляющую количество вхождений...
MariyaPak2701
13.02.2020
Что такое вес позиции в системе счисления? имеется десятичное число 324512. какой вес имеет каждая позиция...
vika110910
10.07.2022
Определите значение переменной «a» после выполнения фрагмента программы: a := 10; b := 3; if a b then b := b + 12 else a := a - 7; if a b then a := a + 12 else a := a - 7;...
ника2761
02.10.2020
пожайлуста по информатике.Нужно дополнить программу...
lanka202
10.03.2023
Как в паскале авс сделать вот такой вывод на экран: - - - т.е чтобы каждая строка начиналась с этого знака?...
Balabol2010
23.07.2022
инвесторы вложили в 20 3 15 4, 165000 тенге и 195000 тенге. прибыль которая не получили, составила 250000 тенге. сколько денег получит каждый инвестор, если прибыль а также...
Snowandsand368
14.03.2020
Write a Country and language report about your country...
bmorextreme
22.03.2022
Решите Уравнение. 1и очень...
MOGZ ответил
Таза оттегидеги жануды корсетиниз Заттын таза оттегинде жакшы жану себебин...
Чему оавен коэффициент р уравнения х^2+рх-44=0, если корнями уравнения...
1. Хитиновый покров у каких животных присутствуют? 2. Какие черви относятся...
сочинение-описание картины Т. Н. Яблонской Утро по сложному плану: | часть...
Геометрия Тжб комектесндерш берем...
4. С растворами каких из указанных солей: CuSO4, ZnCl2, AgNO3, Al2(SO4)3,...
? 4. Өлеңдегі қараңғылық деген – не? 5. Өлеңдегі кейіпкерді ата. 6. Өлең...
подскажите как пересказать текс за 5 минут...
Технологія поєднання декількох роутерів ASUS у бесшовну мережу Wi-Fi називається...
1)(3a^2b-4ab^3):5ab 2)(2c^5b^4+3c^4b^3):(-3c^4b^3) 3)(-27k^4l^5+21k^3l^2):(-10k^3l^2)...
Полный доступ к MOGZ
Живи умнее Безлимитный доступ к MOGZ
Оформи подписку
О НАС
О нас
Блог
Условия пользования
Авторское право
Политика конфиденциальности
Предпочтения cookie-файлов
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
App
Вход
Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ
Var i, N: Integer;
Begin
Write('N = ');
ReadLn(N);
For i := 1 To N Do
Write(i, ' ');
ReadLn;
End.