program
zadacha;
var
a,b,x,y,f:
real;
begin
writeln('vvedite
a,b,x');
readln(a,b,x);
y:=(sqr(a+b)*x)
/ (sqrt(sqr(a)+sqr(b)));
<span>f:=sqr(cos(y))
+ ((a-b)-a*x) / (y*b);</span>
writeln('y
=',y:6:2);
writeln('f(y)
=',f:6:2);
end.
1.
program z1;
var x:real;
begin
writeln('Input x: ');
readln(x);
if (x<9) then
begin
x:=(x*x)/(x-9);
writeln('New x: ',x);
end
else
begin
x:=Sin(x);
writeln('New x: ',x);
end;
end.
Поясню выбор типа х: вещественный, т.к. функция синуса вернет не целое число.
2.
program z2;
var a,b,c:real;
begin
writeln('Input a, b, c:');
readln(a,b,c);
writeln('Числа, удовлетворяющие условию:');
if((a>1) and (a<3)) then
writeln(a);
if((b>1) and (b<3)) then
writeln(b);
if((c>1) and (c<3)) then
writeln(c);
end.
Program test;
const n = 100;
var i,k:integer;
m: array[1..n] of integer;
begin
randomize;
for i:=1 to n do m[i]:=random(1,100);
for i:=1 to n do if m[i] mod 2 =0
then inc(k);
writeln('Количество четных чисел: ',k);
end.<span>
</span>