Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.67/6: Рейтинг темы: голосов - 6, средняя оценка - 4.67
0 / 0 / 0
Регистрация: 23.04.2018
Сообщений: 38

Составление программы, содержащей число на вершине треугольника

31.10.2018, 17:36. Показов 1223. Ответов 2
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
В строке написаны целые числа. Над каждой из двух соседних цифр пишется их сумма. Над каждой из двух новых цифр снова пишется их сумма. Оно продолжается до одного числа (см. пример).
Составление программы, содержащей число на вершине треугольника.

пример


Code
1
2
3
4
                            19
                          7   12
                        3   4   8
                       2  1  3   5
0
Лучшие ответы (1)
Programming
Эксперт
39485 / 9562 / 3019
Регистрация: 12.04.2006
Сообщений: 41,671
Блог
31.10.2018, 17:36
Ответы с готовыми решениями:

Потенциал в вершине прямого угла треугольника
В вершинах при основании прямоугольного равнобедренного треугольника в вакууме расположены точечные заряды одинаковой величины по 15 нКл....

Найти угол при вершине треугольника
Дан треугольник с вершинами А(4, 5) В(1, 3) С(3, -4). Используя свойства скалярного и векторного произведения найти: а) угол при...

Найти угол при вершине треугольника
Условие задачи: В тупоугольном треугольнике одна биссектриса в два раза длиннее другой. Найти угол при вершине. Помогите пожалуйста...

2
Эксперт Pascal/Delphi
6812 / 4568 / 4820
Регистрация: 05.06.2014
Сообщений: 22,434
31.10.2018, 18:23
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
var
  i, j: integer;
  t, n, m: integer;
  a: array [1..100, 1..100] of integer;
 
begin
  randomize;
  write('Введите количество чисел в строке: ');
  readln(n);
  m := n;
  for j := 1 to n do
    a[m, j] := random(n) + 1;
  i := 1;
  t := m - 1;
  while i <= t do
  begin
    for j := 1 to n - 1 do
      a[m - i, j] := a[m - i + 1, j] + a[m - i + 1, j + 1];
    inc(i);
  end;  
  for i := 1 to m do
  begin
    for j := 1 to n do
    begin
      if j <= i then
        write(a[i, j]:5);
    end;
    writeln;
  end;
end.
Добавлено через 5 минут
Программа для предыдущего варианта (схема треугольника была другой).
0
Почетный модератор
 Аватар для Puporev
64314 / 47610 / 32743
Регистрация: 18.05.2008
Сообщений: 115,168
31.10.2018, 18:25
Лучший ответ Сообщение было отмечено ZX Spectrum-128 как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
var a,b:array[1..20] of integer;
    n,i,j,s:integer;
begin
write('Введите размер начальной последовательности n=');
readln(n);
writeln('Введите элементы последовательности');
for i:=1 to n do
readln(a[i]);
while n>1 do
 begin
  for i:=1 to n-1 do
  b[i]:=a[i]+a[i+1];
  n:=n-1;
  a:=b;
 end;
write(b[1])
end.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
inter-admin
Эксперт
29715 / 6470 / 2152
Регистрация: 06.03.2009
Сообщений: 28,500
Блог
31.10.2018, 18:25
Помогаю со студенческими работами здесь

Найти угол при вершине равнобедренного треугольника
Найти угол при вершине равнобедренного треугольника, зная, что его медианы, проведенные из концов основания этого треугольника, взаимно...

Определить внешний угол при вершине треугольника
Задано треугольник с вершинами A (-1,5,1), B (1,1, -2), C (-3,3,2). определить: а) внешний угол при вершине C; б) внутренний угол при...

Найти косинус угла при вершине равнобедренного треугольника
1)-Найти косинус угла при вершине равнобедренного треугольника, если медианы, проведенные из вершин его основания, взаимно перпендикулярны....

Определить напряженность в третьей вершине треугольника при прямом угле
Пожалуйста, напишите решение срочно: В вершинах А и В равнобедренного прямоугольного треугольника с катетами по 5см находятся одноименные...

Найдите отношение n величин напряжённости электрического поля в центре треугольника и в его вершине, свободной от заряда.
В двух вершинах правильного треугольника расположены равные по величине и противоположные по знаку точечные заряды. Найдите отношение n...


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

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Новые блоги и статьи
Загрузка PNG с альфа-каналом на SDL3 для Android: с помощью SDL_LoadPNG (без SDL3_image)
8Observer8 28.01.2026
Содержание блога SDL3 имеет собственные средства для загрузки и отображения PNG-файлов с альфа-каналом и базовой работы с ними. В этой инструкции используется функция SDL_LoadPNG(), которая. . .
Загрузка PNG с альфа-каналом на SDL3 для Android: с помощью SDL3_image
8Observer8 27.01.2026
Содержание блога SDL3_image - это библиотека для загрузки и работы с изображениями. Эта пошаговая инструкция покажет, как загрузить и вывести на экран смартфона картинку с альфа-каналом, то есть с. . .
влияние грибов на сукцессию
anaschu 26.01.2026
Бифуркационные изменения массы гриба происходят тогда, когда мы уменьшаем массу компоста в 10 раз, а скорость прироста биомассы уменьшаем в три раза. Скорость прироста биомассы может уменьшаться за. . .
Воспроизведение звукового файла с помощью SDL3_mixer при касании экрана Android
8Observer8 26.01.2026
Содержание блога SDL3_mixer - это библиотека я для воспроизведения аудио. В отличие от инструкции по добавлению текста код по проигрыванию звука уже содержится в шаблоне примера. Нужно только. . .
Установка Android SDK, NDK, JDK, CMake и т.д.
8Observer8 25.01.2026
Содержание блога Перейдите по ссылке: https:/ / developer. android. com/ studio и в самом низу страницы кликните по архиву "commandlinetools-win-xxxxxx_latest. zip" Извлеките архив и вы увидите. . .
Вывод текста со шрифтом TTF на Android с помощью библиотеки SDL3_ttf
8Observer8 25.01.2026
Содержание блога Если у вас не установлены Android SDK, NDK, JDK, и т. д. то сделайте это по следующей инструкции: Установка Android SDK, NDK, JDK, CMake и т. д. Сборка примера Скачайте. . .
Использование SDL3-callbacks вместо функции main() на Android, Desktop и WebAssembly
8Observer8 24.01.2026
Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .
моя боль
iceja 24.01.2026
Выложила интерполяцию кубическими сплайнами www. iceja. net REST сервисы временно не работают, только через Web. Написала за 56 рабочих часов этот сайт с нуля. При помощи perplexity. ai PRO , при. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru