Мусаев Игоревич371

02.08.2021

В шестизначном числе найти сумму четных цифр(паскаль)

Информатика

Ответить

Ответы

pavlova7771960

02.08.2021

var a,s,i:integer;

begin

writeln('введите шестизначное число');

readln(a);

s:=0;

for I:=1 to 6 do begin

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

a:=a div 10;

end;

writeln(s);

end.

Ответить на вопрос

Поделитесь своими знаниями, ответьте на вопрос:

В шестизначном числе найти сумму четных цифр(паскаль)

▲

В шестизначном числе найти сумму четных цифр(паскаль)

Ответы

Ответить на вопрос

Ваше имя (никнейм)*

Email*

Комментарий*

Популярные вопросы в разделе

50+ С ОБЪЯСНЕНИЕМ ЖЕЛАТЕЛЬНО КАКИЕ СМОЖЕТЕ РЕШИТЬ

Запиши число 15494 в развёрнутом виде, начиная со старшего разряда.

Что вычисляет представленная программа, если n – натуральное число? var n, a, b: integer; begin readln(n); b: =0; while n< > 0 do begin a: =n mod 10; n: =n div 10; b: =b+a; end; writ...

1черно-белое (без градаций серого) растровое графическое изображение имеет размер 10 на 10 точек .какой объем памяти займет это изображение

Кто разбирается в информатике ! 1 5с42(из 16 в 10) 426(из 8 в 10) 1110001(из 2 в 10) 39(из 10 в 2) 177(из 10 в 8) можно написать на бумаге решение

Существует ли треугольник, длины сторон которого выражаются числами 12(8), 122(3) и 11011? объясни. в скобках система счисления

НУЖНО И НЕ ПИШИТЕ ЕРУНДУУУУ

Построить таблицу истинности f=a v b

Сколько всего шагов пройдёт робот, выполнив следующий цикл? for x in range(4): r.right(1) for y in range(4): r.right(2) r.right(3) заметим, что r.right(3) — это команда сдвига робота на 3 шага вправ...

Складіть карту знань з предмета основи здоров'я яка відображає предметну галузь дослідження з теми Сучасні проблеми безпеки

В шестизначном числе найти сумму четных цифр(паскаль)

Ответы

Ответить на вопрос

Ваше имя (никнейм)*

Email*

Комментарий*

Популярные вопросы в разделе

50+ С ОБЪЯСНЕНИЕМ ЖЕЛАТЕЛЬНО КАКИЕ СМОЖЕТЕ РЕШИТЬ

Запиши число 15494 в развёрнутом виде, начиная со старшего разряда.

Что вычисляет представленная программа, если n – натуральное число? var n, a, b: integer; begin readln(n); b: =0; while n&lt; &gt; 0 do begin a: =n mod 10; n: =n div 10; b: =b+a; end; writ...

1черно-белое (без градаций серого) растровое графическое изображение имеет размер 10 на 10 точек .какой объем памяти займет это изображение

Кто разбирается в информатике ! 1 5с42(из 16 в 10) 426(из 8 в 10) 1110001(из 2 в 10) 39(из 10 в 2) 177(из 10 в 8) можно написать на бумаге решение

Существует ли треугольник, длины сторон которого выражаются числами 12(8), 122(3) и 11011? объясни. в скобках система счисления

НУЖНО И НЕ ПИШИТЕ ЕРУНДУУУУ​

Построить таблицу истинности f=a v b

Сколько всего шагов пройдёт робот, выполнив следующий цикл? for x in range(4): r.right(1) for y in range(4): r.right(2) r.right(3) заметим, что r.right(3) — это команда сдвига робота на 3 шага вправ...

Складіть карту знань з предмета основи здоров'я яка відображає предметну галузь дослідження з теми Сучасні проблеми безпеки​

Что вычисляет представленная программа, если n – натуральное число? var n, a, b: integer; begin readln(n); b: =0; while n< > 0 do begin a: =n mod 10; n: =n div 10; b: =b+a; end; writ...

НУЖНО И НЕ ПИШИТЕ ЕРУНДУУУУ

Складіть карту знань з предмета основи здоров'я яка відображає предметну галузь дослідження з теми Сучасні проблеми безпеки