Составьте программу, которая находит произведение четных чисел и сумму нечетных чисел в диапазоне от 1 до 10. в PascalABC

Ответы:

Мария Юрченко

21-07-2017 17:15

Program asd; var chet,nechet,i:integer; begin for i:=1 to 10 do begin If (i div 2)=0 then chet:=chet*i; If (i div 2)=1 then nechet:=nechet+i end; Writeln(chet,nechet); end.

Также наши пользователи интересуются:

Картинка с текстом вопроса от пользователя Злата Даниленко

⭐⭐⭐⭐⭐ Лучший ответ на вопрос «Составьте программу, которая находит произведение четных чисел и сумму нечетных чисел в диапазоне от 1 до 10. в PascalABC» от пользователя Злата Даниленко в разделе Экономика. Задавайте вопросы и делитесь своими знаниями.

Открой этот вопрос на телефоне - включи камеру и наведи на QR-код!