• 1) Перевести в паскаль [tex]
    x=\left \{ {{sinx, x \geq 9 } \atop { \frac{x^{2} }{x-9} },x\ \textless \ 9} ight. [/tex]
    2) Даны три действительных числа. Вывести те из них, которые принадлежат интервалу (1,3).

Ответы 6

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

      humberto
    • 6 лет назад
    • 0
  • Уважаемый, я извиняюсь
    • Автор:

      rangel
    • 6 лет назад
    • 0
  • Спасибо еще раз, за помощь
  • Не за что.
  • 1. program z1;var x:real;beginwriteln('Input x: ');readln(x);if (x<9) then beginx:=(x*x)/(x-9);writeln('New x: ',x);endelsebeginx:=Sin(x);writeln('New x: ',x);end;end.Поясню выбор типа х: вещественный, т.к. функция синуса вернет не целое число.2. program z2;var a,b,c:real;beginwriteln('Input a, b, c:');readln(a,b,c);writeln('Числа, удовлетворяющие условию:');if((a>1) and (a<3)) thenwriteln(a);if((b>1) and (b<3)) thenwriteln(b);if((c>1) and (c<3)) thenwriteln(c);end.
    • Автор:

      dallas805
    • 6 лет назад
    • 0
  • Добавить свой ответ

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years