Новые сообщения · Правила  
Страница 1 из 11
Модератор форума: Berestovskiy 
Форум ПРОГРАММИСТОВ » ПРОГРАММИРОВАНИЕ » Паскаль » срочно люди помагите,завтра экзамен (решить нужно в турбопаскале,^-степень)
срочно люди помагите,завтра экзамен
"вывести на экран числа а^- n,a^- n+1,a^n+2,...a^- 1 для заданных вещественного а и натурального n.
1 | Автор: gurow1993 | 2012-06-12, 11:10   |  Репутация: [ + 0 ]
var
a,n,i:integer;
begin
read(a,n);
i:=0;
n:=-n;
repeat
write(exp(ln(a)*n+i));
i:=i+1;
until i+n=-1;
end.

"Спасибо" принимается в виде повышения репутации ( Зелёный плюсик:) ).Спасибо


Нужна помощь? Сюда: vkontakte.ru/berestovskiy
2 | Автор: Berestovskiy | 2012-06-12, 11:17   |  Репутация: [ + 211 ]
Форум ПРОГРАММИСТОВ » ПРОГРАММИРОВАНИЕ » Паскаль » срочно люди помагите,завтра экзамен (решить нужно в турбопаскале,^-степень)
Страница 1 из 11
Поиск: