Дано натуральное число. Определить: б) сколько раз в нем встречается цифра, равная...

Question

Дано натуральное число. Определить:
б) сколько раз в нем встречается цифра, равная последней;
в) количество четных цифр в нем. Составное условие и более одного неполного условного оператора не использовать;
г) сумму его цифр, больших пяти;
д) произведение его цифр, больших семи;
е) сколько раз в нем встречаются цифры "0" и "5".
В Паскале, не используя массивы

Answer 1

Под а 
Program p1;var a,b , b1,a1,k: integer;begin read(a);k:=1;b:=a mod 10;a1:=a div 10;while a1<>0 do beginb1:=a1 mod 10; if b1=b then k:=k+1;a1:=a1 div 10;end;write(k);end.

Comments

Program p1;
var a,b,k: integer;
begin 
read(a);
while a<>0 do begin
b:=a mod 10; 
if b mod 2 =0 then 
k:=k+1;
a:=a div 10;
end;
write(k);
end.

---

это для в. первое для б

---

только не забудь обнулить к, а вот это для г 
Program p1;
var a,b,s: integer;
begin 
read(a);
s:=0;
while a<>0 do begin
b:=a mod 10; 
if b > 5 then 
s:=s+b;
a:=a div 10;
end;
write(s);
end.

---

для д 
Program p1;
var a,b,p: integer;
begin 
read(a);
p:=1;
while a<>0 do begin
b:=a mod 10; 
if b > 7 then 
p:=p*b;
a:=a div 10;
end;
write(p);
end.

---

последнее 
Program p1;
var a,b,p: integer;
begin 
read(a);
p:=0;
while a<>0 do begin
b:=a mod 10; 
if (b = 5) or (b=0) then 
p:=p+1;
a:=a div 10;
end;
write(p);
end.

---

Спасибо! :)

---

Не за что, лапуля ;)