КТО шарит в EXEL (макросы)
Составить программу, позволяющую по последней цифре данного числа определить последнюю цифру куба этого числа
Составить программу, позволяющую по последней цифре данного числа определить последнюю цифру куба этого числа
Answers & Comments
Ответ:
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.
Объяснение: