1. Информатика
  2. Как задать последовательность

Как задать последовательность s1,-1,sn,sn-,s1.? паскаль.

StacyZviozdohkina StacyZviozdohkina    3   08.08.2019 08:30    0

Ответы
aadiiii1 aadiiii1  04.10.2020 04:38
Var
  i,n:integer;
begin
  Read(n);
  for i:=1 to n do Write(i,' ');
  for i:=n-1 downto 1 do Write(i,' ')
end.

Пример
8
1 2 3 4 5 6 7 8 7 6 5 4 3 2 1
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
Свєтлана1 Свєтлана1  01.06.2019 00:32
Дана числовая последовательность чисел а1, признак конца ввода чисел является число 333. составить программу определяющую сумму всех чётных чисел в последовательности. напишите...
KopiYT KopiYT  01.06.2019 00:05
Вкниге excel данные к тесту vba из учебных материалов модулю , составьте функцию vba в модуле 1 с именем run6 , которая вычисляет количество простых чисел из отрезка [ 1...
vlad67123222 vlad67123222  01.06.2019 00:04
Если исходное значение переменной а было равно 5, а переменной b - 3, то какое значение будет иметь переменная а после выполнения оператора: if (a - b) 0 then a = a - b else...
marystuart21 marystuart21  01.06.2019 04:50
Найти периметр квадрата, площадь которого равна выеденному числу а...
Sashapro111 Sashapro111  19.10.2021 22:51
Напишите названия устройств ЭВМ....
Картоон Картоон  19.10.2021 22:54
Задание на С++ Напишите программу, которая проверяет, является ли введенная с клавиатуры строка целым числом (знак числа не учитывать). Ниже представлен рекомендуемый вид...
AdelinaAries AdelinaAries  18.05.2020 16:54
осталось задание,Help Help Help!...
Олеська11348 Олеська11348  18.05.2020 16:54
.Определите, что будет напечатано в результате работы следующего фрагмента программы: var n, s: integer; begin n := 4; s := 0; while n = 8 do begin s := s + n; n := n + 1...
zaharovvlad1337 zaharovvlad1337  18.05.2020 16:54
Какие возможности предоставляет авторское право? Нужно написать 2!Но одно я написала,вот. ЭТО СОЧ ДО 21:00 ПО АЛМАТЫ!​...
Польбощь Польбощь  23.01.2021 18:41
(6+4•6):(10-7)+(35•10:10)•5=...

Популярные вопросы