40

Составить программу для определения произведения квадратов чисел 1,3…

discore 27 марта 2023

Составить программу для определения произведения квадратов чисел 1,3,5… 15 (операторfor)

категория: информатика

86

var i,s: integer; Begin s: =1; for i: =1 to 15 do if i mod 2=1 then s: =s*i*i; writeln (s); End.

пользователи выбрали этот ответ лучшим
Знаете другой ответ?

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