Var c1,c2:char; x:string; beginwriteln('введите двухзначное число'); readln(x); if length(x)=2 then begin c1:=x[1]; c2:=x[2]; writeln('число наоборот = '+c2+c1); end else writeln('ошибка, невероне число'); end.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
