1) Выписать цифры числа n, если эти цифры больше =4 и меньше =82) Найти сумму цифр числа n, если цифры больше =4, но меньше =8 pascal abc
1) Выписать цифры числа n, если эти цифры >=4 и <=8
2) Найти сумму цифр числа n, если цифры >=4, но <=8 pascal abc
Гость
Ответ(ы) на вопрос:
Гость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.
Не нашли ответ?
Похожие вопросы