Question

Дано целое трехзначное число а. По заданному алгоритму Составьте код программы.
Алг Сумма
Нач
Ввод(х)
х=остаток(х;10)
Вывод(х)
Кон алг

Answer 1

// PascalABC.NET
var
  a: integer;

begin
  readln(a);
  a := a mod 10;
  writeln(a);
end.