1) Перевести в паскаль 
2) Даны три действительных числа. Вывести те из них, которые принадлежат интервалу (1,3).
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.
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
