Дано натуральное число. Заменить все 7 в данном числе цифрами 8 (через mod) через паскаль !!!!!!!!!!!!!!!!!!!!!!!
Answers & Comments
FANTSCR1N
Program z1; Var n,d,s,l: integer; Begin write('Введите число = '); readln(n); l:= 1; s:= 0; while n > 0 do begin d:=n mod 10; if (d = 7) then d:=8; d:= d * l; s:= s + d; l:= l * 10; n:= n div 10; end; writeln(s);End.
Answers & Comments