Составьте программу подсчета суммы четных и количества нечетных чисел от 1

Question

Составьте программку подсчета суммы четных и количества нечетных чисел от 1 до 200

1 ответ

, оставишь ответ?

Имя:*

E-Mail:

Похожие вопросы

Виктор Дупак · Answer 1 · 2019-07-27 00:10:44+3:00

Виктор Дупак 2019-07-27 00:10:44

Var sum, num, i: integer;
Begin
Sum:=0; num:=0;
i:= 1 to 200 do
If (i mod 2)=0 then sum :=sum+i
Else inc(num);
Write(sum,' ',num);
End.

Гудзеватая Мирослава 2019-07-27 00:20:08

Спасибо:)

Геннадий Косинков 2019-07-27 00:29:29

В таких случаях превосходнее просто начинать с четного и идти с шагом в 2 без проверки каких-либо условий.

Игнатюгина Антонина 2019-07-27 00:30:57

А количество нечетных можно подсчитать и так, без цикла - их будет ровно половина из 200, т.е. 100.

Никита Сакадынов 2019-07-27 00:39:49

спасибо, буду знать)

Лариса Шевронская 2019-07-27 00:44:47

Пожалуйста)

Ирина Введенская 2019-07-27 00:53:10

Просто не все помнят про циклы while, а с шагом 2 цикл со счетчиком в Паскале не работает.