Опубликовано 12.06.2017 по предмету Информатика от Гость >> <<

У натрульного числа определить сумму и количетво четных цифр
и определить сколько раз в числе встречается вторая цифра в 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.