помогите с 1 вариантом на языке Паскаль (повторяющийся алгоритм)

Помогите с 1 вариантом на языке Паскаль (повторяющийся метод)

Задать свой вопрос
1 ответ
//Pascal
var  N, k: byte; a: real;
begin
N := 54;
for k := 1 to N do
  if k gt;= 16 then  a := a + exp(sqrt(k))
  else a := a + ln(k*k+5);
writeln('a = ', a);   
end.
, оставишь ответ?
Имя:*
E-Mail:


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

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

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

Войти на сайт