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

Question

Информатика

Донат

7 февраля, 10:17

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

+5

Ответы (1)

Знаете ответ?

Поляна · Answer 1

Var a, b: longint;

begin

write ('введите число - > ') ;

readln (a) ;

a:=a mod 10;

b: = (a*a) mod 10;

writeln ('последняя цифра квадрата числа - > ', b) ;

end.