Срочно.Отыскать творение квадратов нечётных чисел от 1 до 99

Срочно.
Отыскать творение квадратов нечётных чисел от 1 до 99

Задать свой вопрос
2 ответа

//PascalABC.NET

begin

 var product: int64;  

 product := 1;

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

 foreach var x in seq do

   product := product * x;

 write(product);

end.

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

, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт