1. Информатика
  2. Написать програму для обчислення

Написать програму для обчислення добутків виду (х-1)(х-2)(х--n) (p.s скласти програму и блок схему)

nastyarudckina nastyarudckina    3   22.05.2019 10:10    0

Ответы
Андрюша1789 Андрюша1789  17.06.2020 16:13

var

i,n,x:integer;

p:longint;

begin

write ('X = ');readln(x);

repeat

write ('N = ');readln(n); 

until (n>0);

p:=1; 

for i:=1 to n do p:=p*(x-i);

writeln ('Proizvedenie: ',p);

readln;

end.


Написать програму для обчислення добутків виду (х-1)(х-2)(х--n) (p.s скласти програму и блок схему)
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
помоги270 помоги270  05.03.2021 09:50
Предположи, почему инфоргафика «Интернет. Территория безопасности» разделена на 2 столбика, при этом значки левой и правой частейотличаются?​...
ПолиночкаПоля1 ПолиночкаПоля1  15.04.2021 18:15
Кнопка для перегляду значень властивостей обєкта в розділі информація містить информацию про:​...
skripniklenok13 skripniklenok13  15.04.2021 18:11
Все звезды которые мы видим на ночном небе принадлежаи нашей...​...
Elv26 Elv26  15.04.2021 18:11
Программирование алгоритмов обработки многомерных массивов на C++ В массиве А(N;N) определить максимальное число в главной диа- гонали и заменить последний столбик на это...
nurgi12345 nurgi12345  12.03.2021 11:03
Информатика 6 класс помагите 5 заданий...
1234555676 1234555676  12.03.2021 11:03
Дана блок-схема. Определите вид алгоритма ​...
yusdanila yusdanila  12.03.2021 11:03
Напишете программный код на языке Python введите на экран результат вычисления число 15 в 6 степени...
Zzz111zzz15zz888zz Zzz111zzz15zz888zz  27.03.2020 12:04
Скільки разів виконається цикл, якщо початкове значення Х=11? Whіle Х = 10 do X := X+1...
Kirakler2000 Kirakler2000  27.03.2020 12:10
• Создайте текстовый файл a.txt с копирования с консоли в файл. Файл a.txt должен содержать ваше любимое четверостишие (фрагмент стихотворения в 4 строки)• Создайте текстовый...
Povelitel2004 Povelitel2004  27.03.2020 12:06
S:= мама мыла раму ; while pos( ам ,s) 0 do begin x := pos( ам , s); delete(s, x, 2); end; writeln(length(s));...

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