Паскаль

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

2. Найти четырехзначное число, которое при делении на 133 дает в остатке 125, а при делении на 134 остаток 111.

Program gt;

var i, p, s, q:integer;

begin

for i:=10 to 99 do

begin

p:=i;

s:=0;

while p>0 do

begin

q:=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;

begin

for i:=1000 to 9999 do

begin

if (i mod 133=125) and (i mod 134=111) then writeln (i) ;

end;

end.