Дано натуральное число. Заменить все 7 в данном числе цифрами 8 (через mod) через паскаль!

Question

Информатика

Епифаний

12 июля, 21:06

Дано натуральное число. Заменить все 7 в данном числе цифрами 8 (через mod) через паскаль!

+5

Ответы (1)

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

Тая · Answer 1

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.