Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
Var x, y: real;
Begin
Writeln (' введите переменную х');
Readln (x);
If x<=3 then y:=x*x+sin(2*x+3.14/6)
Else
If x>=5 then Y:=ln(x*x+3*x) else y:=sqrt(sqr(sin(x))+abs(x));
Writeln('x= ',x:7:3, ' y= ',y:7:3);
End.
Объяснение:
вместо икс была введена русская буква х
и вместо x<=3 было х<-3
в ответе исправленный вариант
program xxx;
var i, k, c, e : integer
begin
k: =0;
for i: =100 to 999 do
c: = i div 100;
e: =i mod 10;
if c = e then k: =k+1
end;
writeln('кол-во палиндромов =', k);
readln
end.
в двоичной 1000001
в восмеричной 101
в шеснадцатеричной 41
Популярные вопросы