ОЧЕНЬ Надобно!!!ПОМОГИТЕ С ЗАДАЧЕЙ!!!

ОЧЕНЬ Надобно!!!ПОМОГИТЕ С ЗАДАЧЕЙ!!!

Задать свой вопрос
Горбовских Стефания
Номер задания скажите
1 ответ
8-ой:
var N,a,y,z:real;
begin
Readln(a,y,z);
N:=(a+51-sqrt(y-49))/(5-z);
  If (ylt;49) or (z=5) then
  begin
    If ylt;49 then
    Writeln('Число y lt; 49  Число в корне не может быть меньше 0');
    If z=5 then
    Writeln('Число z=5 На 0 разделять нельзя');
  end
  else
  Writeln(N);
end.
Тимур
А если y введено меньше 49, то выдаст ошибку, так как под корнем отрицательное число
Борька Шеракин
поправил
Ruslan Talyshinskij
сейчас выдает типичную ошибку
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт