Полное решение на Паскале : Увеличить каждую цифру трехзначного числа на 1. В случае 9 напишите 0
Полное решение на Паскале : Увеличить каждую цифру трехзначного числа на 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.
Не нашли ответ?
Похожие вопросы