Паскаль
1.Найти все двухзначные числа,такие,что если к сумме цифр числа прибавить квадрат этой суммы,то получится это число.
2.Найти четырехзначное число,которое при делении на 133 дает в остатке 125,а при делении на 134 остаток 111.

program gt;var i,p,s,q:integer;beginfor i:=10 to 99 dobeginp:=i;s:=0;while p>0 dobeginq:=p mod 10;p:=p div 10;s:=s+q;end;if(s+s*s=i)then writeln(i);end;end.2)program gt;var i:integer;beginfor i:=1000 to 9999 dobeginif(i mod 133=125)and(i mod 134=111)then writeln(i);end;end.