Добавил:
hunter__3211
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз:
Предмет:
Файл:паскаль цикл
.pas var
k, j: integer;
t: real;
begin
for j := 2 to 4 do
begin
t := 0;
for k := -1 to 1 do
t := t + power(2, k) / (abs(k) + j);
t := t * t;
end;
writeln('0.095833333333');
end.
k, j: integer;
t: real;
begin
for j := 2 to 4 do
begin
t := 0;
for k := -1 to 1 do
t := t + power(2, k) / (abs(k) + j);
t := t * t;
end;
writeln('0.095833333333');
end.
Соседние файлы в предмете Алгоритмические языки и основы программирования