Безотлагательно !Дано число N. Вычислите сумму цифр этого числа, которые не

Безотлагательно !Дано число N. Вычислите сумму цифр этого числа, которые не делятся на 4. Язык Паскаль

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

var i, sum:integer;

   n:string;

begin

readln(n);

for i:=1 to length(n) do begin

 if StrToInt(n[i]) mod 4 lt;gt; 0 then

  sum:=sum+StrToInt(n[i]);

end;

writeln(sum);

end.

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


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

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

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

Войти на сайт