Дано число. удалить 3 цифру числа с начала - вопрос №89335323 от svetikkomi 19.05.2023 09:57

Question

Информатика: Дано число. удалить 3 цифру числа с начала

svetikkomi · Answer

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.