1. Для чого потрібне упорядковане зберігання даних?
​

a в квадрате плюс b в квадрате:  

;

varn: integer; beginreadln(n); n: = n div 10; n: =(n div 100)*10 +n mod 10; writeln(n); n: = (n mod 10)*100+ ((n mod 100) div 10)*10+ n div 100; writeln(n); end.

крестьянин   должен   переправить   волка   и   капусту с   собой.а   козу   надо   кинуть

  на   другой   берег.      

program strangle;

var

a: integer;

begin

readln(a);

if a = 180 then writeln('yes') else writeln('no');

end;