Регистрация
анна2249
06.06.2021 15:08
Информатика
Есть ответ 👍

Напишите программу которая выводит количество неодинаковых чисел . например: входные данные 2 5 6 3 5 выходные 3 паскаль с рандомными числами

194
307
Посмотреть ответы 2

Ответы на вопрос:

Костя228337
Костя228337
4,4(51 оценок)
//pascalabc.net 3.1 сборка 1200 begin       var a : = arrrandominteger(10, 0, 10);       println(a);       writeln(a.); end.
Nurzhan2207
Nurzhan2207
4,4(92 оценок)

// PascalABC.NET

begin

 var x := ReadReal('x =');

 var p := 1.0;

 for var i := 1 to 32 do

   p *= (x - 2 * i) / (x - 2 * i + 1);

 Print(p)

end.

Объяснение:

Формула, дающая нужный результат:

Ввод целого х может приводить к получению нуля или бесконечности из-за попадания нуля в числитель или в знаменатель.

Популярно: Информатика