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

Question

Информатика

Лара

15 июля, 14:04

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

+1

Ответы (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.