Дано число. Удалить 3 цифру числа с начала

Question

Информатика

Матяша

16 февраля, 14:55

Дано число. Удалить 3 цифру числа с начала

+5

Ответы (1)

Знаете ответ на вопрос?

Сюня · Answer 1

Var i, j, n, m, sum:integer; d:array[1 ... 20] of integer; beginn: = 3451111; repeat i: = i + 1; d[i]: = n mod 10; n: = n div 10; until n = 0; writeln (d, i:3) ;

for j:=i-2 to i do begind[j]: = d[j+1]; end; writeln (d, i:3) ; for j:=i-1 downto 1 dowrite (d[j]) ; end.