Дана последовательность чисел, завершающихся 0. Отыскать сумму кратных чисел, кратных 4.

Дана последовательность чисел, завершающихся 0.
Отыскать сумму кратных чисел, кратных 4.
(Паскаль)

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

begin

ReadSeqIntegerWhile(t-gt;tlt;gt;0).Where(t-gt;t mod 4 =0).Sum.Println

end.

, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

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

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт