Технологии

Найти все двузначные числа, сумма... - вопрос №689722

Найти все двузначные числа, сумма квадратов цифр которых делится на 17 delphi 7 ( на компонентах spinedit1 edit1 bitbtn)....
пожалуйста поподробностей обьяснить.... 

июль 15, 2013 г.

  • Всего ответов: 4

  • Максим - аватарка

    Максим

    52-й в Технологиях

    ну числа искать можно через цикл, пиши в личку расскажу с примером

    июль 15, 2013 г.
  • Максим - аватарка

    Максим

    52-й в Технологиях

    var i: integer;

    begin

    i:=0;

    while (i < StrToInt(spinedit1.text)) do begin

    i:= i + 17;

    edt1.text:= edit1.text+' '+IntToStr(i);

    end;

    вот так правильно

    июль 15, 2013 г.
  • Дмитрий - аватарка

    Дмитрий

    6-й в Технологиях

    На мой взгляд логика должна быть такая:

    for i:=1 to 9 do

    for j:=0 to 9 do

    if((Sqr(i)+Sqr(j)) mod 17 = 0) then WriteLine (i,j);

    Синтаксис паскаля/делфи уже плохо помню, но смысл должен быть понятен

    июль 16, 2013 г.
  • Максим - аватарка

    Максим

    52-й в Технологиях

    да решение правильное, я пошел по альтернативному пути, при чем другой пример у меня на C++ отработал. В делфи же как то ошибки у парня полезли.

    июль 16, 2013 г.

Похожие вопросы