Question

КТО шарит в EXEL (макросы)
Составить программу, позволяющую по последней цифре данного числа определить последнюю цифру куба этого числа

Answer 1

Ответ:

var Chislo: Integer;

   n:byte;

begin

 write('Число: ');

 read(Chislo);

 n:=Chislo mod 10;

 write('Последняя цифра куба=');

 case n of

   2:write(8);

   3:writeln(7);

   7:write(3);

   8:write(2);

   else write(n);

end;

end.

Объяснение: