Question

1) Выписать цифры числа n, если эти цифры >=4 и <=82) Найти сумму цифр числа n, если цифры >=4, но <=8pascal abc

Answer 1

Var n,m,p,s:integer;
begin
write('n=');
readln(n);
m:=n;k:=0;
write('цифры, которые >=4 и <=8 : ');
while m<>0 do begin
p:=m mod 10;
m:=m div 10;
if (p>=4) and (p<=8) then begin
write(p,' ');
s:=s+p;
end;
end;
writeln;
writeln('сумма этих цифр = ',s);
end.