Ввести натуральное число, поменять в нем все цифры на следующую, а цифру 9 на 0. PascalABC

ввод 193

вывод 204

Question

Информатика

Тарасыч

13 ноября, 19:00

Ввести натуральное число, поменять в нем все цифры на следующую, а цифру 9 на 0. PascalABC

ввод 193

вывод 204

+2

Ответы (1)

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

Ефросиния · Answer 1

var m: string;

p: array[1 ... 99] of integer;

begin read (m) ;

for var i : = 1 to m. Length do begin

if m[i] '9' then

write (Succ (m[i]))

else

write ('0') ;

end;

end.

Ввести натуральное число, поменять в нем все цифры на следующую, а цифру 9 на 0. PascalABCввод 193вывод 204

Ввести натуральное число, поменять в нем все цифры на следующую, а цифру 9 на 0. PascalABC

ввод 193

вывод 204