Ребята помогите пожалуйста с решением задачек в Delphi

[DJ Kost]

Здравствуйте мне очень нужна помощь по решению некоторых задачек в Delphi заранее благодарю

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

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

[Tayfun]

1)

Var
  i,a,b:integer;
begin
  a:=StrToInt(Edit1.Text);
  b:=StrToInt(Edit2.Text);
  for i:=a to b do
    if sqrt(i)=round(sqrt(i)) then Edit3.Text:=IntToStr(i);
end;

[Tayfun]

2)

Var
  i,a,b:integer;
begin
  a:=StrToInt(Edit1.Text);
  b:=StrToInt(Edit2.Text);
  for i:=a to b do
    if (i<3) or (i>5) then Memo1.Lines.Add(IntToStr(i));
end;

[Walter]

По поводу 2-ой задачки, а если надо ещё их и подсчитать, не только вывести, то как поступить? Т.е. какое решение тогда бует?

[slips]

Var
i,a,b:integer;
sum:integer;
begin
sum:=0;
a:=StrToInt(Edit1.Text);
b:=StrToInt(Edit2.Text);
for i:=a to b do
if (i<3) or (i>5) then
begin
sum:=sum+i; {**сумма всех чисел в диапазоне [а,b]*}
Memo1.Lines.Add(IntToStr(i));
end;
end;

[puporev]

если надо ещё их и подсчитать, не только вывести,

Var
  i,a,b,k:integer;
begin
  a:=StrToInt(Edit1.Text);
  b:=StrToInt(Edit2.Text);
   k:=0;
  for i:=a to b do
  if (i<3) or (i>5) then 
    begin
      k:=k+1;     
      Memo1.Lines.Add(IntToStr(i));
   end;
Label1.Caption:='количество чисел не из интервала [3,5]=' +IntToStr(k);
end;

[Walter]

пупорев спс те огромное, уже какой раз выручаешь, надо и мне тож знаний набраться, а то как то чувствую себя неучем

[Marika Polskyh]

Мне тоже нужна помощь(
24. Задано два тексти. Створити новий текст, що складається із слів почергово першого та другого текстів.
19. Дано символьний рядок S. Отримати символи Sn/2+1…. Sn , S1…. Sn/2 , тобто поміняти місцями першу половину тексту з другою.

[whatever]

Сообщение от Marika Polskyh

Мне тоже нужна помощь(
24. Задано два тексти. Створити новий текст, що складається із слів почергово першого та другого текстів.
19. Дано символьний рядок S. Отримати символи Sn/2+1…. Sn , S1…. Sn/2 , тобто поміняти місцями першу половину тексту з другою.

Если переведешь, то с первым помогу. Че такое "почергово" не понял.
Во втором вообще ниче не понял.

[Marika Polskyh]

24. Задано два текста. Создать новый текст, состоящий из слов поочередно первого и второго текстов.
19. Дано символьная строка S. Получить символы Sn / 2 +1 .... Sn, S1 .... Sn / 2, т.е. поменять местами первую половину текста со второй.