Question

Полное решение на Паскале : Увеличить каждую цифру трехзначного числа на 1. В случае 9 напишите 0

Answer 1

Uses Crt;
var
  n,d1,d10,d100:integer;
begin
  ClrScr;
  Write('n='); Read(n);
  d1:=n mod 10; d100:=n div 100; d10:=(n div 10) mod 10;
  if d1=9 then d1:=0 else Inc(d1);
  if d10=9 then d10:=0 else Inc(d10);
  if d100=9 then d100:=0 else Inc(d100);
  Writeln(d100,d10,d1);
  ReadKey
end.