помогите с 1 вариантом на языке Паскаль (циклический алгоритм)
Приложения:
Ответы на вопрос
Ответил pacixor
0
//Pascal
var N, k: byte; a: real;
begin
N := 54;
for k := 1 to N do
if k >= 16 then a := a + exp(sqrt(k))
else a := a + ln(k*k+5);
writeln('a = ', a);
end.
var N, k: byte; a: real;
begin
N := 54;
for k := 1 to N do
if k >= 16 then a := a + exp(sqrt(k))
else a := a + ln(k*k+5);
writeln('a = ', a);
end.
Новые вопросы