Дано число. удалить 3 цифру числа с начала - вопрос №38932855 от ashurovaalbina8 05.04.2020 17:34

Question

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

ashurovaalbina8 · 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.