1. D:\SCHOOL\PHYSICS\
2. Е:\GROUP\COURSE\ACADEMY\
3. <span>D:\Tasks\Физика.C </span>
5)
program ex1;var x, y, z : integer;begin x:= 17; y:= -9; if x < y then z:= x * y else z:= y + x; writeln(z);end.
6)
program ex1;var x, tmp : real;begin readln(x); if x<=0 then tmp:=(sin(sqr(x)) - sqrt(power(x,3)+1))/(5*power(x,4)+ 3.5*x); if (x>0) and (x<=4) then tmp:=sqrt(x+sqrt(x+1))+4*x; if x>4 then tmp:= (1.44*abs(power(x,3)-1)-2.5*x)/(x+1);write(tmp);end.
7)
program ex1;var a,b,c:integer;begin readln(a,b,c); if (a>= -3) and (a<2) then write (' a '); if (b>= -3) and (b<2) then write (' b '); if (c>= -3) and (c<2) then write (' c ');end.
Знаковая
%просто текст, потрібно мінімум 20 символів %
=ЕСЛИ(S30=48;5;ЕСЛИ(И(40<S30;S30<48);4;ЕСЛИ(И(34<S30;S30<40);3;2)))
<span>Вводится в паскале последовательность из N целых чисел .Является ли последовательность возрастающей? С использованием Repeat или While.
Нет, не является.</span>