Найдите сумму всех четных и проеизведение нечетных чисел от 1 до n

в избранное

meccep

21 июля 2022

Uses crt; var n,i,s,pr: integer; beginreadln (n); s: =0; pr: =1; for i: =1 to n-1 doif (i mod 2=0) then s: =s+i else pr: =pr*i; writeln (s); writeln (pr); end.

пользователи выбрали этот ответ лучшим

комментировать

в избранное ссылка отблагодарить

Знаете другой ответ?

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

Смотрите также:

Что такое натуральная модель?

В электрическую цепь включены 5 одинаковых резисторов

Составить блок схему: var a,b,c: integer; Begin read (a,b,c); if (a>b) then a: =a else a: =b; if

1. Однажды жители Лилипутии решили выяснить сколько необходимо слив чтобы уравновесить яблоко

Построить в паскале оси координат

Яд находится в одном из 16 бокалов. Сколько единиц информации будет содержать сообщение о бокале сядом?

Какая из перечисленных клавишь QWERTY — клавиатуры не является парной?

Каково наибольшее целое число X, при котором истинно высказывание 10< X*X*X) => (20> (X+1) (X+1)

На рисунки изображены колеса: от машины, велосипеда и телеги. Задание рассмотреть рисунки и заполнитьтаблицу

27400

Алгебра

14822

Английский язык

14216

Биология

7369

Другой

720

18829

8304

15850

5255

11818

23332

15992

73118

8152

466

46271

Email:
Пароль:
	забыли пароль?

Логин:
Email:
Пароль: