Циклы (Pascal)

[Дима82]

Помогите найти сумму у в интервале от 10 до 20...

program kz3;
uses crt;
var x,y,s:real;
begin
 clrscr;
 x:=0.5;
 while x<=4 do
 begin
  repeat
  y:=abs(x+2)*2;
  writeln('x= ',x:5:2,'y= ',y:5:2);
  x:=x+0.5;
  until x>-4
 end;
 begin
 s:=0;
 if (y>=10) and (y<=20) then
 s:=s+y;
 writeln('summa zna4enii "y": ',s:5:2)
 end;
 readln
end.

[eoln]

Интервал это (10; 20), а у тебя сегмент [10; 20]
while repeat - зачем подряд? (repeat выполнится только один раз - он лишний)
18, 19 строки после 11-ой
17 после 7
16, 21 убери

[Дима82]

18, 19 строки после 11-ой
17 после 7
16, 21 убери

Не понял , что убрать...

Всё теперь понял, спасибо!

[eoln]

Это были номера строк в коде. Вот держи

program kz3;   
uses crt;   
var x,y,s:real;   
begin   
 clrscr;   
 x:=0.5;   
 s:=0; 
 while x<=4 do   
 begin   
  y:=abs(x+2)*2;   
  if (y>=10) and (y<=20) then   
  s:=s+y; 
  writeln('x= ',x:5:2,'y= ',y:5:2);   
  x:=x+0.5;    
 end;   
 writeln('summa zna4enii "y": ',s:5:2);     
 readln   
end.

[Дима82]

Да, да, я всё понял, ещё раз спасибо...