ПОМОГИТЕ ПОЖАЛУЙСТАДано 2 целых положительных числа: a и b. Требуется написать

ПОМОГИТЕ ПОЖАЛУЙСТА
Дано 2 целых положительных числа: a и b. Требуется написать программку, которая обретает цифру, на которую оканчивается число a^b.
Входные данные
Результат
a=2
b=4
6

Задать свой вопрос
2 ответа

Var A,B,C:integer;
Begin
assign(input,'input.txt');
reset(input);
assgin(output,'outpt');
rewrite(output);
C:=1;
Write('A = ');ReadLn(A);
Write('B = ');ReadLn(B);
For B:= 1 to B do
C:=C*A;
WriteLn(C mod 10);
End.
Var a,b,c,i:integer;
Begin
Write('a = ');
ReadLn(a);
Write('b = ');
ReadLn(b);
c:=1;
For i:=1 to b do c:=(c mod 10)*a;
WriteLn(c mod 10);
End.

Пример:
a = 77
b = 15
3
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт