Question

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

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

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

Задача 2

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

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

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

Answer 1

Задача №1.

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

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.

 

Задача №2.

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.