Вопрос по информатике:
Полное решение на Паскале : Увеличить каждую цифру трехзначного числа на 1. В случае 9 напишите 0
- 06.01.2018 14:06
- Информатика
- remove_red_eye 18510
- thumb_up 41
Ответы и объяснения 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.
- 07.01.2018 13:02
- thumb_up 17
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.