Регистрация
klymukmaks
19.01.2021 08:06
Информатика
Есть ответ 👍

Ввести произвольное целое число,определить в нем сумму четных цифр. РЕШИТЬ ЧЕРЕЗ WHILE.Pascal.

282
488
Посмотреть ответы 3

Ответы на вопрос:

Саня3411
Саня3411
4,6(69 оценок)

Это очень очень сложно но я хочу торжественно, откровенно и гордо заявить о том, очень торжественном, очень откровенном и очень гордым признанием того что я настолько шокирован тем что я это говорю, хочу сказать что я забыл

Объяснение:

Alina228321234
Alina228321234
4,4(100 оценок)

ответ:1

2

3

4

5

6

7

8

9

10

11

12

13

Var s,n:integer;

Begin

   write('Введите число: ');readln(n);

   s:=0;

   While n<>0 do

    Begin

     if n mod 10 mod 2 = 0 then s:=s+n mod 10;

     n:=n div 10;

    End;

   if s<>0 then writeln('Сумма четных цифр: ',s)

    else writeln('Нету четных цифр в числе');

   readln;

End.

Объяснение:

mihajlovalena45
mihajlovalena45
4,5(23 оценок)

получите расспишитесь

объяснение:

надюсь поймешь

Популярно: Информатика