Антипович
4 год назад
дано целое двузначное число х выведите число полученное при перестановке его цифр значение х введите с клавиатуры
ОТВЕТЫ
Cameron Walter
Oct 24, 2020
program ff;
var
x:string;
begin
writeln('Введите x:');
readln(x);
if x.Length=2 then
begin
x:=x[2]+x[1];
writeln(x);
end
else Writeln('Введенное вами число имеет неверный формат');
end.
var
x:string;
begin
writeln('Введите x:');
readln(x);
if x.Length=2 then
begin
x:=x[2]+x[1];
writeln(x);
end
else Writeln('Введенное вами число имеет неверный формат');
end.
258
Смежные вопросы: