//PascalABC.NET 3.3,сборка 1611 от 06.01.2018
//Внимание! Если программа не работает, обновите версию!
begin
var N:=readinteger('N=');
if (N>0) and (N mod 5 =0) then
Writeln('N=',sqrt(N)) else
Writeln('N=',N**2);
end.
1) M:=2*Tan(v*v*v)+Sqrt((2*Exp(a)*v+Sin(2*v*v))/Cos(v*v))
2) Y:=Ln(3*k)-Sin(x*x)*Cos(x*x)+Sqrt(Sin(2*x)+Cos(2*x))
3)
Var
P,x:real;
Begin
Write('x = ');ReadLn(x);
P:=Abs(x+5)/(Abs(3*x*x-x+20)+9);
WriteLn('P = ',P);
End.
4)
Var
c,x,Y:real;
Begin
Write('x = ');
ReadLn(x);
Write('c = ');
ReadLn(c);
Y:=c*x;
if Y <= 9 then Y:=c*x+2
else if Y < 20 then Y:=c*c+x
else Y:=c-x;
WriteLn('Y = ',Y);
End.
Вот тебе решение в документе. Должно быть всё норм работать.
Var
a,b,c:integer;
begin
write('Введите двухзначное число: ');
readln(a);
c:=a div 10;
b:=a mod 10;
writeln(c,#10,b);
<span>end.</span>