Опубликовано 11.06.2017 по предмету Информатика от Гость >> <<

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

Ответ оставил Гость

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.