Дано целое число. Напишите программу,которая выводит на экран последнюю цифру данного числа,затем возводит её в квадрат и выводит на экран монитора результат

1

Ответы и объяснения

2013-10-17T12:51:37+04:00
Через mod можно)

var x: integer;
begin
     readln(x);
     x := x mod 10;
     writeln('>', x);
     x := sqr(x);
     writeln('>', x);
end.