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

Question

Информатика

Леся

29 марта, 01:03

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

+2

Ответы (1)

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

Санюта · 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.