задача,цилк со счетчиком

[maks22]

нужно написать код для решения в Lazarus.Среди двухначных чисел найти те,сумма квадратов цифр которых делится на 13.Полный код пожалуйста,ввывод через Label1,ввод через Edit1

[VIK_aka_TOR]

стучите в аську... договоримся.. ))) или же выкладываем свои наработочки...

[Serge_Bliznykov]

ввод через Edit1

первое, а какой в этой задаче ввод? Что вводить нужно?

второе. ну Боже ж мой! Ну неужели ПРОСТЕЙШИЙ цикл вызывает такие сложности?!!

var s : string;
   i : integer;
begin
  s := '';
  for  i:=10 to 99 do
     if (sqr(i div 10) + sqr(i mod 10)) mod 13 = 0 
        then  
            if s='' then s := IntToStr(i) 
            else s := s + ','+IntToStr(i);
  Label1.Caption := s;
end;

Это ЦЕЛИКОМ ВСЯ ПРОГРАММА. Достаточно кинуть на форму Label1, кнопку, и назначить ей этот код.
Неужели это ТАК СЛОЖНО?!

[maks22]

Вот спасибо большое так и надо было,благодарю