1.
var i,n:integer; s:real;
begin
write('n = '); readln(n);
s:=0;
for i:=1 to n do s:=s+1/i;
writeln('s = ',s);
end.
Пример:
n = 5
s = 2.28333333333333
2.
var x,a,s:real; i:integer;
begin
write('x = '); readln(x);
a:=x; s:=x; i:=1;
while i<11 do
begin
i:=i+2;
a:=x*x*a;
s:=a/i;
end;
writeln('s = ',s);
end.
Результат:
x = 3
s = 16104.2727272727
Win7: основная ос в мире создана в 2009 году. Имеет более защищенный код чем у win xp.
win8; выпущена в 2012 году. была в первые приминен плиточный интерфейс, имеет синхронизацию со смартфонами на wp.
win 10: доработана работа со не сенсерными экранами, имеет continoum(хз как пишется)
var i:integer;
b: real;
begin
b:=1.5;
for i:=1 to 7 do
begin
writeln(i,' сентября количество биомассы составляет ', b,' т');
b := b*1.3
end
end.
Язык не написан, значит могу написать на любом? Вот тебе JavaScript ;D
var arr = [], N, K, L, sum = 0; // (1 <= K <= L <= N)
N = Number(prompt('Введите размер массива (N)'));
K = Number(prompt('Введите K'));
L = Number(prompt('Введите L'));
for (let i = 0; i < N; i++) {
arr[i] = Math.round(Math.random()*10);
if (K <= i && L >= i) sum += arr[i];
}
console.log(`В массиве, размерностью ${N}, состоящем из чисел [${arr}], сумма элементов с позиции ${K} до ${L} (включительно), равна ${sum}`);
// Или alert(text);
Лог программы:
Введите размер массива (N): 15
Введите K: 3
Введите L: 12
В массиве, размерностью 15, состоящем из чисел [2,3,8,5,6,9,7,8,8,5,4,10,7,6,5], сумма элементов с позиции 3 до 12 (включительно), равна 69