М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
FrostMorne
FrostMorne
16.01.2021 01:09 •  Информатика

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

👇
Ответ:
WayneGames
WayneGames
16.01.2021

#include <iostream>

#include <iomanip>

using namespace std;

#define N 15

#define S 128

int main () {

int mas[S];

for(int n = 0; n < N; n++) {

 mas[0] = 1;

 for(int i = 1; i <= n ; i++)  

  mas[i] = 0;

 for(int i = 1; i <= n; i++)

  for(int j = i; j >= 1; j--)

   mas[j] += mas[j-1];

 cout << setw(2) << n << ":";

 for(int i = 0; i < 35 - 5 * n / 2; i++)

  cout << " ";

 for(int i = 0; i <= n ; i++)

  cout << setw(5) << mas[i];

 cout << endl;

}

   return 0;

}


Напишите программу которая отобразит числа в порядке пирамиды паскаля. программа должна вычислить и
4,6(57 оценок)
Открыть все ответы
Ответ:

Компьютер - сложная вычислительная техника, которая человеку, упрощая процесс создания и хранения информации. Одна из главных составляющих компьютера - это системный блок, монитор, клавиатура и компьютерная мышь - без них никуда. Процессор отвечает за все процессы, происходящие в системе. Оперативная память осуществляет эти самые действия. Любители компьютерных игр не обойдутся без хорошей видеокарты, с её повышается графика, за которую так же отвечает монитор и графический драйвер. Материнская плата тоже неотъемлемая часть ПК. Компьютеры- сложная и полезная техника.

4,8(58 оценок)
Ответ:
Devil536
Devil536
16.01.2021
PascalABC.NET 3.4.2, сборка 1843 от 24.10.2018Внимание! Если программа не работает, обновите версию!

begin

 try

   var vData := ReadlnString('Введите дату по образцу дд.мм.гг:');

   if vData = '' then Exit;

   var s := vData.MatchValue('(\d\d\.){2}\d\d');

   if s = vData then

   begin

     var d := DateTime.Parse(s);

     $'День: {d.Day}{NewLine}Месяц: {d.Month}{NewLine}Год: {d.Year}'.Println

   end

   else

     'Дата введена не по образцу'.Println

 except

   'Такой даты в календаре не существует'.Println

 end

end.


Перевод программы с visual basic на ! sub dat() dim vdata as string on error goto metka vdata = inpu
4,8(19 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ