Для любого натурального n верно что последняя цифра числа 6^n=6.
При n=0 получаем 6^0=1 и последняя цифра 1.
При n<0 задача в общем случае неразрешима.
<u>// PascalABC.NET 3.3, сборка 1634 от 14.02.2018</u>
<u>// Внимание! Если программа не работает, обновите версию!</u>
begin
Writeln(ReadInteger('n=')=0 ? '1' : '6')
end.
Var s: string;
i:integer;
begin
write('Введите текст: ');
readln (s);
for i:=1 to length(s) do
if s[i]='к' then write (i,' ');
<span>end.</span>
В электронная книга не содержит красящих компонентов