Fgg
5 год назад
Пожалуйста посчитайте с 1 вариантом на языке Паскаль (циклический алгоритм)
ОТВЕТЫ
Dimitr
Oct 24, 2020
//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.
650
Смежные вопросы:
