"Да" надо заключить в 'Да'
А вообще, лучше использовать цифры. Например, 1 и 2, Да и Нет соответственно. А в выводе указать, "Введите 1 для подтверждения"
Program abc;Const n=3; m=3;Var a:array[1..n,1..m] of integer; b,y,i,j,sum:integer; srd:real; Begin Writeln('Введите числа массива: '); For i:=1 to n do For j:=1 to m do Begin Write('a[',i,',',j,']= '); Readln(a[i,j]); if a[i,j]>0 then begin sum:=sum+a[i,j]; inc(b); end else If a[i,j]<0 then Inc(y); End; If sum>0 then begin srd:=sum/1 b; Writeln('Среднее =',srd); end else Writeln('Нет положительных членов массива'); If y>0 then begin Writeln('Количество отрицательных элементов =',y); end else Writeln('Нет отрицательных членов массива');End.
Var i: integer; s:real;
Begin
For i:=7 to 2007 do
s:=s+i/(i+4);
Write(s);
End.
<span>оно может быть выражено в разных </span><span>языках</span>
Define ("pi",3.14);
По формуле через радиусы
$R = 10;
$rr = 4;
$RES = pi*(sqrt($R)-sqrt($rr));
echo "$RES";
По формуле через диаметры:
$D = 12;
$dd = 3;
$RES = ((pi/4)*(sqrt($D)-sqrt($dd)));
echo "$RES";