вторник, 19 мая 2015 г.

Домашняя работа (24.04)

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


Program One;
Var Y, N, a, i: integer;
Begin
Writeln ('Vvedite Y, N')
Readln (Y, N);
a:=Y;
While i<=N do Y:=Y*a;
Writeln(Y);
Readln;
end.

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

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