Надпись - NumLk (NumLock)
Var
N, i, max: shortint;
arr: array[1..50] of shortint;
v: string;
begin
v := ' NO';
max := -(MaxSmallInt);
readln(N);
for i := 1 to N do
begin
read(arr[i]);
if arr[i] > max then max := arr[i];
if arr[i] = 0 then v := ' YES';
end;
writeln(max, v);
end.
PascalABC
program aip;
<span>var </span>
fltA,fltB,fltB2:real;
code:integer;
function ip(A:real):real;
var A1:string;
begin
write('Введите значение А= ');
//--------
<span>repeat </span>
readln(A1);
val(A1,A,code);
if (code<>0) then writeln('no');
until (A>0);
//-------
ip:=A;
<span>end; </span>
<span>begin </span>
fltA:=ip(fltA);
if abs(1+sin(2*fltA)) < 0.000001 then begin
writeln('Delenie na nol v pervoy formule');
end else begin
fltB:= ((1-2*sin(fltA)*sin(fltA))/(1+sin(2*fltA)));
writeln('Первая формула ',fltB:5:5);
end;
if abs(1+tan(fltA)) < 0.000001 then begin
writeln('Delenie na nol vo vtoroy formulte');
end else begin
fltB2:= ((1-tan(fltA))/(1+tan(fltA)));
<span> writeln('Вторая формула ',fltB2:5:5);
</span>end;
<span>end. </span>
Выделенные не совпадают. В последней колонке расчет
Var
t,d,S:real;
begin
write('Введите значение t=');read(t);
write('Введите значение d=');read(d);
S:=Pi/4*(sqr(d+t*2)-sqr(d));
writeln('Площадь кольца=',S:5:2);
end.