57 в восьмеричной системе - это в нашей 10-ричной 47. 2014 в шестнадцатеричной - это в нашей 8212. Составить алгоритм по нахождению последней цифры при возведении а в степень b не сложно: var i,a,b,p:word; {диапазон целых чисел 0..65535} Begin readln(a,b);p:=a mod 10; {первая степень числа а} for i:=2 to b do {если степень больше 1, то в цикле начинаем домножать, пока № витка цикла не дойдет до b } begin p:=p*a; {домножаем результат на последнюю цифру числа а} p:=p mod 10; {отделяем последнюю цифру результата} end; writeln(p); {по окончании цикла в р находится результат задачи} end. В результате вводимых данных (47 и 8212) получаем 1. Думаю, что и в 16-ричной будет тоже 1.
2014 в шестнадцатеричной - это в нашей 8212.
Составить алгоритм по нахождению последней цифры при возведении а в степень b не сложно:
var
i,a,b,p:word; {диапазон целых чисел 0..65535}
Begin
readln(a,b);p:=a mod 10; {первая степень числа а}
for i:=2 to b do {если степень больше 1, то в цикле начинаем домножать, пока № витка цикла не дойдет до b }
begin
p:=p*a; {домножаем результат на последнюю цифру числа а}
p:=p mod 10; {отделяем последнюю цифру результата}
end;
writeln(p); {по окончании цикла в р находится результат задачи}
end.
В результате вводимых данных (47 и 8212) получаем 1. Думаю, что и в 16-ричной будет тоже 1.
var a: string;
begin
write ('Введите слово: '); read (a);
writeln ('Именительный падеж: ',copy(a,1,length(a)));
writeln ('Родительный падеж: ',copy(a,1,length(a)-1),'ы');
writeln ('Дательный падеж: ',copy(a,1,length(a)-1),'е');
writeln ('Винительный падеж: ',copy(a,1,length(a)-1),'у');
writeln ('Творительный падеж: ',copy(a,1,length(a)-1),'ой');
writeln ('Предложный падеж: ',copy(a,1,length(a)-1),'е');
end.
Основной момент, это удаление окончания путем копирования слова в строке a начиная с первого символа, до длины слова минус 1 символ.
Объяснение: