Создать блок-схему для вычисления функции y (b), заданной на при b = 0, y не существует, при b> 0, y = a + b, при b < 0, y = sin (b) * (b + exp (b * ln ( где a = b * sin (b) + ln (abs (b))

var

n: integer;

begin

readln(n);

if (n mod 10)=(n div 100) then

writeln('палиндром')

else

writeln('не палиндром');

end.

на паскале:

program myprogram; var n,i,fact: integer; sum: real; beginsum: =0; fact: =1; writeln('введите число n.'); readln(n); for i: =1 to n dobeginfact: =fact*i; sum: =sum+1/fact; end; writeln('сумма 1/1! +1/2! +1/3! ++1/n = ',sum); end.

ты едишь к сестре татьяны?

var a: array[1..10] of integer;

i,s,n,k: integer;

begin

  read(n);

  for i : = 1 to n do begin

      read(a[i]);

      if a[i]> 0 then begin

          s: =s+a[i];

          k: =k+1;

      end;

  end;

  writeln(s, s/k);

end.