понедельник, 27 апреля 2015 г.

Домашняя работа

Program Step;
Var X, N, a, i: integer;
Begin
Writeln ('Vvedite X, N')
Readln (X, N);
a:=X;
While i<=N do X:=X*a;
Writeln(X);
Readln;
end.
Автор: на

Комментариев нет:

Отправить комментарий

Подписаться на: Комментарии к сообщению (Atom)