Program qwe;
Uses crt;
var x:real;
begin
clrscr;
writeln('Vvedite x');
Readln(x);
if sqr(x)-4>0 then writeln('Da') else writeln('Net');
Readkey;
<span>end.</span>
№1.Под 1
#include <iostrem>
#include <cmatch.h>
using namespace std;
int main (); {
double x,y,a;
cout x;
cout y;
a=((sin(x)+cos(x))/(cos(x)-sin(y)))*tg(x*y);
cin a;
return 0;}<span>
</span>
Program z;
Var N,k:integer;
Begin
k:=0;
If N<5 then k:=k+1;writeln(k);
End.