Отыскать сумму трёхзначных чисел,сумма цифр которых число нечетное.Сколько чисел вошло в

Отыскать сумму трёхзначных чисел,сумма цифр которых число нечетное.Сколько чисел вошло в сумму?

Задать свой вопрос
1 ответ
Var
i,n,c:integer;
begin
for i:=100 to 999 do
if i mod 2 lt;gt; 0 then begin
n:=n+i;
c:=c+1;
end;
writeln('Сумма цифр:',n);
write('Вошло в сумму:',c,' чисел');
end.



я не очень понел твой вопрос но я размышляю что мой ответ правельный
, оставишь ответ?
Имя:*
E-Mail:


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

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

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

Войти на сайт