Берілген блок-сызбадағы алгоритмнің псевдокоды мен программасын жазыңыз

176

329

Посмотреть ответы 1

Ответы на вопрос:

senazubik63kfkd

Информатика

4,7(8 оценок)

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.