В шестизначном числе найти сумму четных цифр(паскаль)
Ответы
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Популярные вопросы в разделе
Викторная графика точкарастворная графика. линия
Автор: sn009
Информация. основные подходы к определению понятия"информация".восприятие информации человеком
Автор: Oksana-Kirakosyan1301
Выбери правильные имена. 1)a_kloun 2)Щ
Автор: menesmir
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.