Предмет: Информатика,
автор: shusha10012
Ввести натуральное число, поменять в нем все цифры на следующую, а цифру 9 на 0. PascalABC
ввод 193
вывод 204
var n: Int64;
s: string;
m: array[1..99] of string;
p: array[1..99] of integer;
begin
read(n);
s := IntToStr(n);
for var i := 1 to s.Length do begin
m[i] := s[i];
end;
for var i := 1 to s.Length do begin
if StrToInt(m[i]) <> 9 then
p[i] := StrToInt(m[i]) + 1
else
p[i] := 0;
write(p[i]);
end;
end.
s: string;
m: array[1..99] of string;
p: array[1..99] of integer;
begin
read(n);
s := IntToStr(n);
for var i := 1 to s.Length do begin
m[i] := s[i];
end;
for var i := 1 to s.Length do begin
if StrToInt(m[i]) <> 9 then
p[i] := StrToInt(m[i]) + 1
else
p[i] := 0;
write(p[i]);
end;
end.
второй вариант правильный
зачем столько массивов? можно же просто обойтись числом n и строкой? да даже просто одной строкой
var m: string;
begin
read(m);
for var i := 1 to m.Length do
if m[i] <> '9' then
write(Succ(m[i]))
else
write('0');
end.
begin
read(m);
for var i := 1 to m.Length do
if m[i] <> '9' then
write(Succ(m[i]))
else
write('0');
end.
третий вариант првильный)
Ответы
Автор ответа:
1
// PascalABC.NET 3.3, сборка 1634 от 14.02.2018
// Внимание! Если программа не работает, обновите версию!
begin
var n:=ReadInteger;
var St:=new Stack<integer>;
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<integer>;
while n>0 do begin
St.Push((n+1) mod 10);
n:=n div 10
end;
St.Println('')
end.
Примеры
193
204
1234567890
2345678901
Вряд ли в 5-9 классах проходят нечто похожее, но все равно круто
Ок
Автор ответа:
1
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.
Даже короче вашей)
Надеюсь все это пригодиться на ЕГЭ
Хотя сомневаюсь
Да, спасибо
Похожие вопросы
Предмет: Химия,
автор: tutupapatutu
Предмет: Геометрия,
автор: kryzhanovskaaliso4ka
Предмет: Химия,
автор: aleksandrashishkova9
Предмет: Математика,
автор: светик108
m: array[1..99] of integer;
begin
read(n);
if n div 100 <> 9 then
m[1] := n div 100 + 1
else m[1] := 0;
if (n mod 100) div 10 <> 9 then
m[2] := (n mod 100) div 10 + 1
else m[2] := 0;
if n mod 10 <> 9 then
m[3] := n mod 10 + 1
else m[3] := 0;
write(m[1], m[2], m[3]);
end.