Предмет: Информатика, автор: Аноним

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

Ответы

Автор ответа: HumphreyVanVeiden
0

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

Приложения:
Автор ответа: contrlc
0

//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.

Похожие вопросы
Предмет: История, автор: zannakabduseva