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.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
