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.
Https://studopedia.ru/3_177371_osnovnie-algoritmicheskie-konstruktsii-bazovie-algoritmi.html
1-ложь
2-истина
3-ложь
4-истина
5-истина
6-ложь
7-истина
8-ложь
9-истина
Дано
K= 100 стр
L= 60 строк
N=80 символов
Z= 1 байт
Q - ? Мбайт
Решение
ИНформационная емкость книги составит 100*60*80*1=480000 байт = 0,48 Мб