Решите задачу в Delphi

[sniper16]

Решение задачи реализовать тремя способами (for,while,repeat).Выбор способа реализовать через RadioButton


Вводятся числа a и b. Найти сумму таких чисел в диапазоне [a;b], которые при возведении в квадрат превышают b.

 

[nayke]

У RadioButton усть свойство itemindex определяющее выбор пользователя. Помещаешь его на форму и пишешь что - то вроде

if radiobutton1.itemindex=0 then
begin
sum:=0;
for i:=a to b do
if sqr(i)>b then sum:=sum+i;
end;

для while:

i:=a;
while i<=b do
begin
if sqr(i)>b then sum:=sum+i;
inc(i);
end;

для Repeat:

i:=a-1;
repeat
inc(i);
if sqr(i)>b then sum:=sum+i;
until i=b