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

ввод 193

вывод 204

Question

Информатика

Тарасыч

2 декабря, 12:01

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

ввод 193

вывод 204

+3

Ответы (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