Если я правильно понял задание, то вот:
var y:real; n:integer;
begin
readln(n);
repeat
y:=y+1/n;
n:=n-1;
until n=0;
writeln(y);
end.
16 * 64 = 1024 (2¹⁰)символов на странице
1024*16=16384 (2¹⁴)бит
16384:8=2048(2¹¹)байт
2048:1024=2кб
1 страница=2КБ
10 КБ : 2 КБ = 5 страниц
#include <iostream>
int main()
{
double sum = 0.0;
int count = 0;
for (int i = 0; i < 10; ++i)
{
double value;
std::cin >> value;
if (value > 0)
{
sum += value;
count++;
}
}
double average = sum / count;
std::cout << average << std::endl;
return 0;
}
Var x: array[1..8] of longint;
Var i,a : longint;
Begin
for i:= 1 to 8 do
begin;
readln(a);
x[i] := a;
end;
Writeln('Массив K:');
for i:= 1 to 8 do
begin;
writeln(',i,' = ',x[i]);
end;
Readln;
end.