• УУУММООЛЛЛЯЯЯЯЮЮЮЮЮ!!!!!!!!!!!!!!!!
    4. Изменить программу Text так, чтобы второе слово выводилось только при нажатии цифры 2 , а при нажатии цифры кроме 1 и 2 выводилось сообщение “ERROR”. 5. Составить программу вычисления для любого х функции Y =1/x , при х=0 выдать сообщение ' функция не существует '
    Program Text; Uses crt;
    var x: integer;
    Begin ClrScr;
    write('Введите цифру 1 или любую :'); readln(x); ClrScr;
    if x=1 then write(' В а с я')
    else write(' П е т я');
    End.

Ответы 2

  • огромное спасибо !
  • 1. Program Text;Uses crt;var x: integer;Begin ClrScr;write('Введите цифру 1 или любую :  ');readln(x); ClrScr;if x=1 then write(' В а с я')else if X=2 then  Write('П е т я')else Writeln('ERROR');End._______________________________2. Program Funct;uses crt;var Y, X : real;Begin ClrScr;Writeln ('введие x');Readln(x); ClrScr;if X=0 then Writeln('Функиця не существует')elsebegin Y:=1/x;Writeln('Функция равна ', Y);end;end.Как то так
    • Автор:

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

Войти через Google

или

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

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

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