Question

с клавиатуры вводится трехзначное число. Составить программу которая найдет разность цифр этого числа, стоящих в позиции единиц и сотен.

Answer 1

var
  a: integer;
 begin
  readln(a);
  write(a mod 10 - a div 100);
end.

Answer 2

Решить в ПАСКАЛЕ
В массиве Z состоящем из 6 чисел все отрицательные элементы заменить их модулями. Полученный массив вывести.
С ПОМОЩЬЮ ДАТЧИКА СЛУЧАЙНЫХ ЧИСЕЛ!

Answer 3

Помоги пожалуйста