1) Выписать цифры числа n, если эти цифры >=4 и <=8

2) Найти сумму цифр числа n, если цифры >=4, но <=8

pascal abc

Question

Информатика

Авдокея

17 октября, 14:10

1) Выписать цифры числа n, если эти цифры >=4 и <=8

2) Найти сумму цифр числа n, если цифры >=4, но <=8

pascal abc

+2

Ответы (1)

Знаете ответ на вопрос?

Илюха · Answer 1

Var n, m, p, s:integer;

begin

write ('n=') ;

readln (n) ;

m:=n; k:=0;

write ('цифры, которые >=4 и <=8 : ') ;

while m0 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.

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

1) Выписать цифры числа n, если эти цифры >=4 и <=8

2) Найти сумму цифр числа n, если цифры >=4, но <=8

pascal abc