Определить значение переменной s после выполнения следующих операторов: S:=1; N:=1; For i:=2 to n do s:=s+1/i;

Знания

Информатика

1 ответ:

FiruzMuradov4 года назад

0 0

S:=1;
N:=1;
For i:=2 to n do s:=s+1/i; S: = 1+1/2 = 1,5

Читайте также

Дан массив из, состоящий из 9 вещественных чисел. Все элементы массива с четными номерами заменить на их абсолютную величину

Slon3

Var
a:array [1..9] of real;
i:integer;
begin
for i:=1 to 9 do read(a[i]);
a[2]:=abs(a[2]);
a[4]:=abs(a[4]);
a[6]:=abs(a[6]);
a[8]:=abs(a[8]);
for i:=1 to 9 do write(a[i],' ');
end.

0 0

4 года назад

Дан массив вещественных чисел. найти среднее арифметическое неотрицательных элементов массива.

andre587

Program n1;
const n=10;
var a: array[1..n] of real;
sum,k: real;
i: integer;
begin
sum:=0;
k:=0;
for i:=1 to n do
begin
readln(a[i]);
if a[i]>0 then begin
k:=k+1;
sum:=sum+a[i];
end;
end;
write(sum/k);
end.

0 0

3 года назад

В классе 35 человек. Из них 20 человек любят ходить на дискотеки, 15 человек любят ходить в кино, а 6 человек не любят ни кино,

Яна1081 [17]

35-6=29
29-20=9 любят только кино
15-9=6 любят и кино, и дискотеки

0 0

4 года назад

Опишіть пристрої, що використовуються у вашому домашньому комп;ютері.

Светлана2308 [7]

Системный блок, мышка, монитор, клавиатура, оперативная память, файлы системного обеспечения, программные файлы, видеокарта,

0 0

1 год назад