ЗАДАЧА ПО ИНФОРМАТИКЕ! значение переменной х присвоить в программепри неотрицательном значении х переменной у присвоить значение, ра

ЗАДАЧА ПО ИНФОРМАТИКЕ!!!ПОМОГИТЕ ПЛИЗ) 1.значение переменной х присвоить в программе

2.при неотрицательном значении х переменной у присвоить значение,равное корню квадратному из х.

3.в противном случае,переменной у присвоить значение,равное квадрату х. 4.вывести на экран значение х и значение у

Задача 2

1.Двум произвольным переменным присвоить произвольным образом соответственно 2 числа

2.Двум другим переменным присвоить значения,равным тангенсам двух предыдущих переменных

3.вывести на экран значения всех переменных ,а так же сумму значений последних переменных.

    Задача №2.

  • Задача №1.

    program Z1;
    uses crt;
    var
    x,y:real;
    begin
    writeln('Введите X ');
    readln(x);
    If x>0 then y:=sqrt(x)
    else
    y:=sqr(x);
    writeln('X= ',x,'Y= ',y);
    end.

    program Z2;
    uses crt;
    var
    a,b,a1,b1,r:real;
    begin
    writeln('Введите 1 число ');
    readln(a);
    writeln('Введите 2 число ');
    readln(b);
    a1:=sin(a)/cos(a);
    b1:=sin(b)/cos(b);
    r:=a1+b1;
    writeln('1 число: ',a,'  2 число: ',b,'  3 переменная: ',a1);
    writeln(' 4 переменная: ',b1,'  Сумма 2 последних переменных: ',r);
    end.

     

  •  

    Код на языке PascalABC:


See also: