Программа на Delphi

procedure TForm1.Button1Click(Sender: TObject);

var

n, m, i: byte;

Fl: Boolean;

begin

n: = StrToInt(InputBox('Ввод', 'Введите n', ''));

m: = StrToInt(InputBox(' Ввод', ' Введите m', ''));

ShowMessage('Вы ввели числа ' +IntToStr(n) + ' '+ IntToStr(m)+ chr(13));

Fl: = false;

For i: =n to m do

Begin

If I mod 10 < > 3 then

Continue;

ShowMessage ('Искомое число ' + IntToStr(i));

Fl: =true;

Break;

End;

If not fl then

ShowMessage('Таких чисел иет');

end;

end.

Задача. Сумма кубов. Составьте программу вычисления суммы кубов натуральных чисел от 1 до 100,

.

Решение. Сумму S можно находить последовательно так: S: =13; S: =S+23; S: =S+33 и т.д. Вместо подобной цепочки операторов принято писать: S: =S+n3, где 1£ n£ 100. Чтобы при первом выполнении этого оператора значение суммы было равно 1, нужно положить начальное значение S равным 0. Натуральные числа и их кубы получаются в результате работы операторов, поэтому в данном случае оператор ввода отсутствует. При решении задачи многократно повторяются операторы 3, 4, 5. Они составляют цикл данного алгоритма. Поскольку значение целой переменной n связано с числом повторений, ее называют параметром или счетчиком цикла. Первый раз цикл выполняется при значении n равном 1; это значение называ-

Блок-схема алгоритма

ется начальным значением параметра цикла. При повторении цикла значение n изменяется на шаг h, в данном случае h=1. Конечное значение параметра цикла равно 100.