===== PascalABC.NET =====
begin
var n := ReadInteger('Сколько точек будете вводить?');
for var i := 1 to n do
begin
var x := ReadReal;
Writeln(x:10:5, Sin(Sqr(x) + 1.67 * Pi):20:15)
end
end.
Чтобы получить вид таблицы, после ввода числа точек нужно в следующей строке вводить весь набор х сразу и через пробел
А) a*a+x*x/(y*y) или sqr(a)+sqr(x)/sqr(y)
б) sqrt(a*a+b*b) или sqrt(sqr(a)+sqr(b))
Var n,i,min,max:integer;
begin;
readln(n);
max:=0;
min:=10;
while n>1 do
begin;
if n mod 10>max then max:=n mod 10;
if n mod 10<min then min:=n mod 10;
n:=n div 10;
end;
writeln('Result:',max mod min);
<span>end.</span>
Использовать Чертежник
алг
нач
вещ x
x := -1
<em> | 3x+2y-4=0
</em>
<em> | 2y=4-3x
</em>
<em> | y=2-1.5x
</em>
сместиться в точку (-1, 2 - 1.5 * (-1))
опустить перо
нц пока (x <= 3)
сместиться в точку(x, 2 - 1.5 * x)
x := x + 0.25
кц
поднять перо
<span>кон</span>