Помогите решить задачу в Кумире!

Пользователь вводит целое число. Каждую цифру в нем надо заменить по следующему принципу: "1" на "9", "2" на "8", "3" на "7" и т. д. Цифра "0" не меняется. Результат сохранить в отдельной переменной и вывести на экран. Например: ввод - "4569870", вывод - "6541230"

Question

Информатика

Павлик

24 марта, 00:01

Помогите решить задачу в Кумире!

Пользователь вводит целое число. Каждую цифру в нем надо заменить по следующему принципу: "1" на "9", "2" на "8", "3" на "7" и т. д. Цифра "0" не меняется. Результат сохранить в отдельной переменной и вывести на экран. Например: ввод - "4569870", вывод - "6541230"

+3

Ответы (1)

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

Маруша · Answer 1

Program gt;

var n, i, q, r, b, t:longint;

a:array[1 ... 100]of longint;

begin

read (n) ;

t:=0;

while n>0 do

begin

q:=n mod 10;

n:=n div 10;

r: = (10-q) mod 10;

t:=t+1;

a[t]:=r;

end;

b:=0;

for i:=t downto 1 do

begin

b:=b*10+a[i];

end;

writeln (b) ;

end.