Добавил:
Upload Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз: Предмет: Файл:
otvety_informatika_33_33_33.docx
Скачиваний:
13
Добавлен:
25.04.2019
Размер:
82.98 Кб
Скачать

37Пример программирования треугольника Паскаля

programbinom_nutona;

usescrt;

vara,b,c,n,k,i:integer;

d:real;

begin

writeln('vveditestepen, v kotoruuvozvodim');

read(n);

writeln('vveditenomerchlena, koefficentdlyakotorogorasschitivaem');

read(k);

k:=k-1;

a:=1;

for i:=1 to n do a:=a*i;

if a=0 then a:=1;

b:=1;

for i:=1 to k do b:=b*i;

if b=0 then b:=1;

c:=1;

for i:=1 to n-k do c:=c*i;

if c=0 then c:=1;

d:=a/(b*c);

writeln('otvet ',d:2:2);

readln;

end.

  1. Задача преобразования вектора