У натрульного числа определить сумму и количетво четных цифр и определить сколько раз в числе встречается вторая цифра в Pascal
У натрульного числа определить сумму и количетво четных цифр
и определить сколько раз в числе встречается вторая цифра в Pascal
Гость
Ответ(ы) на вопрос:
Гостьprogram p1;
var a,a1,b,k,s,m,l:integer;
begin
readln(a);
a1:=a;
s:=0;
m:=0;
while a<>0 do
begin
b:=a mod 10;
if a mod 2=0 then
begin
k:=k+1;
s:=s+b;
end;
a:=a div 10;
if (a<10) and (m=0) then m:=b;
end;
while a1<>0 do
begin
b:=a1 mod 10;
if b=m then l:=l+1;
a1:=a1 div 10;
end;
writeln('Сумма четных цифр: ',s);
writeln('Количество четных цифр: ',k);
writeln('Вторая цифра встречается: ',l,' раз');
end.
Не нашли ответ?
Похожие вопросы