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

Question

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

Answer 1

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.