Примеры когда применение новых информационных технологий не приводит к повышению производительности труда в результате внедрения автоматизированных информационных технологий

program xxx;

var n, c, d, e, k : integer;

begin

  wtite ('введите 3-х значное число n =');

  readln (n);

  c : = n div 100;

  d : = (n div 10) mod 10;

  e : = n mod 10;

  k: = 100*e + 10*d + c;

  if n = k then write ('палиндром') else write('не палиндром')

end.

uses crt; var n: integer; beginread(n)n: =abs(n)-2; write(n); end.

рrogram summa;

var s, a, b, c : word;

            write('введите a - > '); readln(a);

            write('введите b - > '); readln(b);

            write('введите с - > '); readln(c);

            s=а+в+с

            write(' сумма равна ',s);

            readln

в принципе все, должно быть правильно

в двоичной 1000001

в восмеричной 101

в шеснадцатеричной 41