[salair]

написать программу.Сколько имеется двузначных чисел, сумма квадратов цифр которых делится на 13?

[Assistant]

вы потом исходники за деньги чтоли продаете? )) нафига вам проги эти?

P.S.: я думаю вам нужно сразу в раздел работа, и сразу все вопросы там изложить...

[Bargest]

надо подсказать - спроси совета. тут врятли кто-то весь код напишет.(это так, на будущее).

Алгоритм: проход по числам от 10 до 99 и проверяем сумму квадратов.

Код:

for i:= 1 to 9 do
 for j:=0 to 9 do
   //любые проверки и вычисления; i - старший разряд, j - младший.

[Raskolnikov]

Если за деньги - пусть с нами поделится

тут врятли кто-то весь код напишет

Это и кодом-то можно только условно назвать

Код:

var
  i, count: Integer;
begin
  count:= 0;
  for i:= 10 to 99 do
    if (Sqr(i mod 10) + Sqr(i div 10)) mod 13 = 0 then
      Inc(count);
  Edit1.Text:= IntToStr(count);
end;

[salair]

какие деньги,курсач не могу сделать!!!!!!!!!!!!!!!!!!!!!!

[Aristarh Dark]

Вот и нужно раскошелиться