1) Перевести в паскаль 2) Даны три действительных числа. Вывести те из них, которые...

Question

1) Перевести в паскаль
2) Даны три действительных числа. Вывести те из них, которые принадлежат интервалу (1,3).

Answer 1

1. 
program z1;
var x:real;
begin
writeln('Input x: ');
readln(x);
if (x<9) then <br>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<br>writeln(a);
if((b>1) and (b<3)) then<br>writeln(b);
if((c>1) and (c<3)) then<br>writeln(c);
end.

Comments

Очень благодарен

---

эм..как скажете О_О

---

Ну это как для будущего поколения

---

Благодарю очень

---

lf yt pf xnj)

---

real, что бы числа с точкой корректно работали (так на всякий)

---

Уважаемый, я знаю это)Указал ведь еще в первой программе. Сбило меня с толку слово "действительных". Почему-то подумал, что они обязательно должны быть целыми.

---

Уважаемый, я извиняюсь

---

Спасибо еще раз, за помощь

---

Не за что.