Помогите пожалуйста!!! даны числа от 1 до 50. найти сумму этих чисел и произведение ??етных чисел на языке паскаль

?етных чисел на языке паскаль

Ответы:

Славик Кравченко

09-12-2018 06:45

Var a,b,c:integer;beginc:=1;for i:=2 to 50 dobeginif (i mod 2 = 0)then c:=c*i;end;writeln(c);end.

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

Придумать сценарий приключенческого мультфильма в мире насекомых Краткий пересказ "Старый гений"

Картинка с текстом вопроса от пользователя Фёдор Волков

⭐⭐⭐⭐⭐ Лучший ответ на вопрос «Помогите пожалуйста!!! даны числа от 1 до 50. найти сумму этих чисел и произведение ?» от пользователя Фёдор Волков в разделе Информатика. Задавайте вопросы и делитесь своими знаниями.

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