Найти произведение квадратов нечётных чисел от 1 до 99

katka1999 katka1999    3   05.04.2019 10:47    2

Ответы
ksusha6060606 ksusha6060606  28.05.2020 17:19

Программа на Паскале прилагается.


Найти произведение квадратов нечётных чисел от 1 до 99
ПОКАЗАТЬ ОТВЕТЫ
DianaMiss05 DianaMiss05  28.05.2020 17:19

//PascalABC.NET

begin

 var product: int64;  

 product := 1;

 var seq := range(1, 99).Where(x -> x mod 2 <> 0).Select(x -> x * x);

 foreach var x in seq do

   product := product * x;

 write(product);

end.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика