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

Question

Информатика

Лаврентий

20 сентября, 09:30

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

+3

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