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.
280 в двоичной 100011000
в 8ричной 430
в 6ричной 1144
в 16ричной 118
28 в 2чной 11100
в 16ричной 1с
в 6ричной 44
в 8ричной 34
180 в 2чной 10110100
в 8ричной 264
в 6ричной 500
в 16ричной b4
10 в 2чной 1010
в 8ричной 12
в 16ричной А
в 6ричной 14
Program n1;
var a: real;
begin
write('введите скорость в км/ч: ');
readln(a);
write('эта скорость в м/с: ',a*5/18);
end.
Begin
while true do begin
writeln(random(1000));
end
end.