№1
Program z1;
var N:integer;
Begin
write ('Введите число N: ');
readln(N);
if (N mod 2 = 0) and (N div 100 < 1) and (N > 9) then write('Данное число является четным двузначным') else if (N div 100 < 1) and (N > 9) then write ('Данное число не четное двузначное');
end.
№2
Program z2;
var a, b, c, k:integer;
Begin
k:=0;
writeln ('Введите числа a, b и c: ');
readln(a,b,c);
if a<0 then k:=k+1;
if b<0 then k:=k+1;
if c<0 then k:=k+1;
write('Количество отрицательных чисел: ',k)
end.
var a,b,c,d:real;
Begin
read(a,b,c,d);
if ((a<c) and (b<d)) or ((b<c) and (a<d)) then
writeln('Впишется')
else writeln('Не впишется');
End.
var a,b,c:real;
Begin
read(a,b,c);
if (a>b) and (a>c) then a:= b*c;
if (b>a) and (b>c) then a:= a*c;
if (c>b) and (c>a) then a:= b*a;
writeln(a);
End.
3)var x,y,z,u:real;
function max(x,y,z:real):real;
begin
if (x>=y) and (x>=z) then max:= x;
if (y>=x) and (y>=z) then max:= y;
if (z>=y) and (z>=x) then max:= z;
end;
function min(x,y,z:real):real;
begin
if (x<=y) and (x<=z) then min:= x;
if (y<=x) and (y<=z) then min:= y;
if (z<=y) and (z<=x) then min:= z;
end;
Begin
read(x,y,z);
u:=(max(x,y,z)*max(x,y,z)-exp(x*ln(2)))/(sin(2*x)+max(x,y,z)/min(x,y,z));
writeln(u);
End.
