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

Question

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

pascal abc

Answer 1

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