Создать и оформить по образцу таблицу (таб.8), выполнить все необходимые расчеты, оформить соответствующим столбцам денежный формат,
использовать, где необходимо функции. Предусмотреть премию в размере 15%
от «к оплате» тем сотрудникам, у кого количество отработанных часов больше
или равно 50. Налог составляет:
14%, если сумма к оплате выше 1500;
12%, если сумма к оплате находится в пределах от 1000 до 1500
включительно;
10%, если меньше 1000.
На руки = К оплате – Налог
По данным таблицы 8 построить разные типы диаграмм по столбцам
«Фамилия» и «На руки». Задать название диаграммы «Ведомость на получение
зарплаты». Диаграмма должна быть снабжена легендой и подписями данных.

// pascalabc.net

// версия 3.3.5 сборка 1662 (29.04.2018)

а

begin

    println('кол-во символов -',readstring('слово-> ').length)

end.

пример:

741258963

кол-во символов - 9

б

begin

    var s: =readstring('слово-> ').tolower;

    println(s[1]=s[s.length]? '': 'не ');

end.

пример:

слово-> олово

в

begin

    var s: =readstring('слово-> ');

    println(s[1],s[2],s[s.length]);

end.

пример:

слово-> плотина

п л а

г

begin

    println(readstring('слово-> ').length mod 2=0? 'четно': 'нечетно');

end.

пример:

слово-> виноград

четно

программа на языке pascal, успехов в учебе.

program pr;

var n,m,z,k,i,vm: integer;

begin

readln (n,m,z);

vm: =n*60+m;

i: =1;

while i< =vm do

begin

k: =k+1;

i: =i+z;

end;

writeln (k);

readln;

end.

program mss; uses crt; var v,m,h,r: real; beginclrscr; writeln('введите радиус'); readln(r); writeln('введите высоту'); readln(h); v: = 3.14*sqr(r)*h; m: = 1200*v; writeln('    ',m: 2: 2,' кг'); readln; end.

program xxx;

      var d, x1, x2, y1,y2 : real;

begin

  write('введите координаты 1 точки: ');

  readln(x1, y1);

  write('введите координаты 2 точки: ');

  readln(x2, y2);

  d: =sqrt(sqr(x2-x1)+sqr(y2-y1));

  write('растояние между точками =', d);

  readln

end.