{Интересно, составитель задачи сам её писал? При отрицательном x возвращает NaN, так как пытаемся вычислить квадратный корень отрицательного числа} //Pascal ABC.NET v3.0 сборка 1111
Var a,b,h,f1,f2,e,x,g:real; k,i:integer;
function fact(n:integer):integer; Var i,r:integer; begin r:=1; for i:=1 to n do r:=r*i; fact:=r; end;
begin read(a,b,h,e); x:=a-h; i:=1; writeln('№':4,' ','X':4,' Sum value:':10,' y(x) value:':10,' Δy'); while x<b do begin x+=h; f2:=(x+1-sqrt(x))*exp(sqrt(x))-(x+1+sqrt(x))*exp(-sqrt(x)); k:=1; f1:=(8*sqrt(x)*x)/fact(2*k+1); g:=f1; while abs(g)>e do begin inc(k); g:=(8*sqr(k)*sqrt(x)*power(x,k))/fact(2*k+1); f1+=g; end; writeln(i:4,' ',x:4,' ',f1:3:2,' ',f2:3,' ',abs(f1-f2):4); inc(i); end; end.
<em>// PascalABC.NET 3.2, сборка 1338 от 16.11.2016</em> const n=8; begin var a:=MatrixRandom(n,n,10,90); for var i:=0 to n-1 do begin for var j:=0 to n-1 do Write(a[i,j]:3); Writeln end; var k:=0; for var i:=0 to n-1 do if a[i,i].IsEven then Inc(k); Writeln('k=',k); end.
Var money:integer; min:real; s:string; begin write('Стоимость одной минуты разговора = '); readln(money); write('Длительность разговора = '); readln(min); write('Какой сегодня день? '); readln(s); if (s = 'суббота') or (s = 'Суббота') or (s = 'Воскресенье') or (s = 'воскресенье') then writeln('Стоимость разговора = ',money * min*0.8) else writeln('Стоимость разговора = ',money*min); end.