1. Информатика
  2. С клавиатуры вводится целое

С клавиатуры вводится целое число. Найти сумму его четных цифр. нужно сделать так что-бы соответствовало 8 классу

дншегзпгх дншегзпгх    2   18.02.2021 19:50    0

Ответы
shchevelevn shchevelevn  20.03.2021 19:59

var n,s:integer;

begin

repeat

write('Введите 4х значное число n=');

readln(n);

until (n>999)and(n<10000);

s:=0;

while n>0 do

 begin

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

  n:=n div 10;

 end;

write('Сумма четных цифр=',s);

end.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
RonaAnna RonaAnna  31.08.2019 18:10
Составьте программу для нахождения среднего арифметического всех натуральных чисел на отрезке [50; 180]...
liza1392 liza1392  13.04.2020 12:24
Дан массив а(10). Сформировать массив b той же размерностью,элементы которого равны удвоенной сумме элементов массива а и их порядковым номерам.На паскале...
Шпунтя Шпунтя  13.04.2020 12:24
Для двумерного массива А(4,6) определить максимальный элемент в каждой строке и поменять его местами с элементами на главной диагонали....
HaCT9I3 HaCT9I3  13.04.2020 12:25
КОНТРОЛЬНАЯ РАБОТА, СЕГОДНЯ НУЖНО СДАТЬ Напишите программу решающую следующую задачу. Дано целое число. Если оно больше 100, то вычесть из него 80, в противном...
Polinaovch Polinaovch  13.04.2020 12:25
Qbasic составить программы...
megamaximvax megamaximvax  25.10.2021 10:45
Сочинение в осеннем лесу 5-9 предложений...
haha1 haha1  25.10.2021 10:45
Когда поевлялись гольтуриже растения...
Anilop11 Anilop11  25.10.2021 10:45
А) Вставьте пропущенные буквы и отметьте тот ряд, в котором все глаголы имеют окончание «е». а) люб_м, прыгн_м, слыш_м, дад_м; б) выбира_м, украша_м, хоч_т, се_т;...
viklya30 viklya30  25.10.2021 10:45
Задание Собири информацию,затем напиши турестический путеводитель,примерно 80 слов,об известной улице Черняховска.Напиши о: Её расположение(центр,юг,запад..) Что...
ПолумнаПрометей ПолумнаПрометей  25.10.2021 10:45
найдите устаревшие слова Духовной жаждою томим, В пустыне мрачной я влачился, — И шестикрылый серафим На перепутье мне явился. Перстами легкими как сон Моих зениц...

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