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


плизз помогите

var n:byte;
begin
  writeln('Vvedite poslednuyu cifru');
  readln(n);
  case n of
    0,1,5:writeln(n);
    2,8:writeln(4);
    3:writeln(9);
    4,6:writeln(6);
    7:writeln(9);
    9:writeln(1);
  end;
  readln;
end.

readln(n);
writeln(sqr(n mod 10) mod 10);

?

Ему надо организацию выбора

ну тогда 3 и 7 можно еще объединить

Одним модом меньше.

но диапазон применимости значительно меньше (если, конечно, подразумевать под n все число, а не последнюю цифру). Правда, если убрать контроль переполнения - то да, все равно, согласен .

> Правда, если убрать контроль переполнения - то да, все равно, согласен

Был бы проц десятичным (а хорошая мысль - тогда перестанут появляться люди с искалеченным мышлением, считающие число 256 круглым) - было бы всё равно. А так - нет.
Если хранить результат в однобайтовом виде, то, например, sqr(17) = 289 = 34 - последняя цифра другая.
Но в задаче же надо начти последнюю цифру квадрата не по всему числу, а по его последней цифре. То есть на входе только последняя цифра числа.

Да, верно. Лопухнулся я..

Что на входе - определяется условиями задачи. Мне кажется, все же логично вводить все число, а не последнюю цифру. Но я тут не судья..

у меня N - это само число. (Это так, для ясности )