Вопрос по информатике:
Ввести натуральное число, поменять в нем все цифры на следующую, а цифру 9 на 0. PascalABC
ввод 193
вывод 204
Пожаловаться
- 07.09.2016 11:31
- Информатика
- remove_red_eye 4127
- thumb_up 29
Ответы и объяснения 2
// PascalABC.NET 3.3, сборка 1634 от 14.02.2018
// Внимание! Если программа не работает, обновите версию!
begin
var n:=ReadInteger;
var St:=new Stack;
while n>0 do begin
St.Push((n+1) mod 10);
n:=n div 10
end;
St.Println('')
end.
Примеры
193
204
1234567890
2345678901
// Внимание! Если программа не работает, обновите версию!
begin
var n:=ReadInteger;
var St:=new Stack;
while n>0 do begin
St.Push((n+1) mod 10);
n:=n div 10
end;
St.Println('')
end.
Примеры
193
204
1234567890
2345678901
Пожаловаться
- 08.09.2016 00:12
- thumb_up 43
var m: string;
p: array[1..99] of integer;
begin read(m);
for var i := 1 to m.Length do begin
if m[i] '9' then
write(Succ(m[i]))
else
write('0');
end;
end.
p: array[1..99] of integer;
begin read(m);
for var i := 1 to m.Length do begin
if m[i] '9' then
write(Succ(m[i]))
else
write('0');
end;
end.
Пожаловаться
- 09.09.2016 21:08
- thumb_up 4
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.
Новые вопросы
Интересные вопросы