var s : integer; t, t1,t2: string; b1: boolean; begin b1 := false; writeln('введите строку'); readln(t); t2 := ''; repeat p1 := pos(' ',t); if p1>0 then begin t2 := copy(t,1,p1-1); if length(t2)>0) then t1 := t2 + ' ' + t1; delete(t,1,p1); end else if (length(t)>=1) then //обработка кнца строки begin t2 := t; t1 := t2 + ' ' + t1; b1 := true; end else b1 := true; // еще одна проверка, если пследний символ строки - пробел until (b1 = true); writeln('ответ ',t1) end.
Традиционное решение: var n,d1,d2,d3,d4:integer; begin Write('Введите четырехзначное натуральное число: '); Readln(n); d1:=n div 1000; d4:=n mod 10; d3:=(n mod 100) div 10; d2:=(n mod 1000) div 100; n:=1000*d1+100*d3+10*d2+d4; Writeln('Результат: ',n) end.
Решение с использованием символьного представления числа: var s:string; begin Write('Введите четырехзначное натуральное число: '); Readln(s); Writeln('Результат: ',s[1]+s[3]+s[2]+s[4]) end.
