перебор чисел (pascal)

[mozdok15rus]

напишите программу поиска двузначных чисел, сумма квадратов цифр которых делится на 13, на паскале, я студент первого курса технического вуза. очень нужно,просьба, напишите как нибудь по проще, чтоб соответствовало первому курсу))) заранее спасибо

[ponchikpk]

как понять поиска чисел?

[mozdok15rus]

понятия не имею, что написано, я сюда написал)) а што, ни как,да??это типа практическая работа, если на недели не сдам, то пролетел я с мехом

[DM_bite]

program xix;
var n,a,b: integer;
begin
WriteLn('Vvedite chislo');
readLn(n);
a:= n mod 10;
b:= n div 10;
if (sqr(a)+sqr(b) mod 13 = 0) then WriteLn('Yes') else WriteLn('No');
end.

Если правильно понял

[Levsha100]

В цикле

for i:=11 to 99 do

находим первое число

C1:=i mod 10;

находим второе число

C2:=i div 10;

складываем два числа

S:=sqr(C1)+sqr(C2);

далее условие, если делится на 13 без остатка, товыводим

if S mod 13 =0 then writeLn(i);

Конец цикла

Только, пожалуйста, давайте осмысленные названия топикам.

[ponchikpk]

2 минутки не успел

[mozdok15rus]

спасибо огромное!!!!

[mozdok15rus]

а кто нибудь в алгебре шарит??? мне нужно найти пределы.. я понимаю что вопрос совсем не в тему. да и не на том форуме
1)lim при x стремящимся к бесконечности 2x^2+3x-1/x^2+x+3
2)lim при x стремящимся к бесконечности 3-2*e^x/у^x+5
3)lim при x стремящимся к бесконечности ...под корнем x^4-2x^2+2/три корня из x^6+4x^3-1
4)lim при x стремящимся к 0 ... 2arctg(3x)/sin(5x)
5)lim при x стремящимся к 1 ...3x^2+2x-1/-x^2+x+2
может кто то что то знает