<em>// PascalABC.NET 3.2, сборка 1370 от 24.12.2016</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var a:=ArrRandomReal(ReadInteger('n='),-50,50);
a.Transform(x->Trunc(100*x)/100); // Чтобы числа легче было читать))
a.Println;
var a0:=a[0];
a:=a.Select((x,i)->i.IsEven?x/a0:x).ToArray;
a.Println
end.
<u>Пример</u>
n= 8
-37.63 0.61 41.54 -46.8 34.42 23.66 13.12 7.64
1 0.61 -1.10390645761361 -46.8 -0.914695721498804 23.66 -0.348657985649747 7.64
1).Использовал цикл,но условия не до конца понял
program c1;
var n,i:integer;
y,l:real;
begin
l:=1;
readln(n);
for i:=1 to n do
begin
y:=y+(1/l);
l:=l+1;
writeln(y);
end;
end.
2).
program c1;
var n,i:integer;
begin
readln(n);
for i:=1 to n do
begin
if (i mod 3=2) then write(i,' ');
end;
end.
16 =
i = 4 (кол-во бит на одну букву)
4 * 5 = 20 бит (объем информации одного слова)
20 * 8000 = 160000 бит / 8 = 20000 байт
Ответ :
20000 байт
#include<stdio.h>
#include<conio.h>
int main(int argc, char *argv[])
{
int N, m;
printf("N = ");scanf("%d",&N);
printf("m = ");scanf("%d",&m);
m*=60;
float S = 0;
int i;
for(i = 0; i < N; i++)
{
S+=m;
m+=10;
}
printf("%f",S/60);
getch();
}
