Форум программистов, компьютерный форум, киберфорум
Наши страницы
PascalABC.NET
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.50/4: Рейтинг темы: голосов - 4, средняя оценка - 4.50
Agneshka
0 / 0 / 0
Регистрация: 09.09.2017
Сообщений: 13
1

Получить "сглаженные" значения элементов последовательности

01.10.2017, 16:51. Просмотров 742. Ответов 1
Метки нет (Все метки)

Получить "сглаженные" значения a1,., a50, заменив в исходной последовательности все члены, кроме первого и последнего

как решить эту задачу, если массивы использовать нельзя?
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
01.10.2017, 16:51
Ответы с готовыми решениями:

"Разница между двумя max элементами последовательности по модулю не превышает значения ее min элемента"
Дана числовая последовательность, значения ее элементов могут быть не...

Удалить из последовательности символов S все слова, оканчивающиеся группой букв, "кая" или "кое"
Даны натуральное число n, символы S1,... Sn. Будем рассматривать слова,...

Используя delete, получить из слова "информатика" слово "математика"
Program Primer6; Uses crt; var a: string; Begin clrscr; a:='Инка'; ...

Получить слова: "фомка" или "нотка".
Program Primer5; Uses crt; var a: string; Begin clrscr; ...

Заменить в строке "." на ";", "." на ".", убрать лишние пробелы. Не могу доделать один кусочек
Не соображу, как уместить два действия так, чтобы работали оба, а именно, ...

1
Соколиный глаз
C#
224 / 164 / 113
Регистрация: 25.07.2014
Сообщений: 3,118
Записей в блоге: 10
Завершенные тесты: 2
01.10.2017, 18:38 2
Лучший ответ Сообщение было отмечено Agneshka как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
const
  N = 50;
 
begin
  var A := ReadlnInteger();
  var B := ReadlnInteger();
  var C := ReadlnInteger();
  var Result := IntToStr(A) + ' ';
  
  for var i := 2 to N - 1 do
  begin
    Result += FloatToStr((A + B + C) / 3) + ' ';
    A := B;
    B := C;
    C := ReadlnInteger();
  end;
  
  Result += IntToStr(B);
  Writeln(Result);
end.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
01.10.2017, 18:38

Как получить случайный символ от "0" до "9"?
Доброго времени суток. Как при помощи функции chr получить случайную цифру от 0...

В чем ошибка? Когда печатаю "а" или "б" все работает, а когда "А" или "Б" то он не меняет "А" на "Б"
{Программа заменяет буквы "а" на буквы "б" в введенном тексте} var stroka :...

Из фразы "Сашеньке вчера исполняется 120 лет" получить фразу "Саше завтра исполняется 12 лет"
Из фразы "Сашеньке вчера исполняется 120 лет" получить фразу "Саше завтра...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru