// PascalABC.NET 3.0, сборка 1144 от 16.01.2016
begin
var a:=ArrRandom(10,-5,15); a.Println;
Writeln('Сумма элементов с нечетными индексами равна ',
Range(0,9,2).Select(i->a.ElementAt(i)).Sum)
end.
<u><em>Тестовое решение:</em></u>
11 -3 3 8 8 14 8 12 15 2
Сумма элементов с нечетными индексами равна 45
Што нужно зделать ? я не понимаю
Носитель информации - это тот объект, который информацию может хранить и передавать. В системе "человек - телевизор", носителем будет телевизор, ибо он передаёт человеку информацию, а не наоборот
<em><u>Задание 1. </u></em>На самом деле в нем ошибка. Числ Фибоначчи определены начиная с f0=1, а в задании дважды указано f1=1.
uses Crt;
var
k,n,f0,f1,fk:longint;
begin
ClrScr;
f0:=1; f1:=1; k:=2;
Write('n='); Read(n);
Write(f0,' ',f1);
while k<=n do begin
fk:=f0+f1; f0:=f1; f1:=fk; Inc(k);
Write(' ',fk)
end;
Writeln;
ReadKey
end.
<em><u>Тестовое решение:</u></em>
n=20
1 1 2 3 5 8 13 21 34 55 89 144 233 377 610 987 1597 2584 4181 6765 10946
<em><u>Задание 2.</u></em>
uses Crt;
var
P:real;
M:char;
s:string;
begin
ClrScr;
Write('P='); Readln(P);
Write('M='); Readln(M);
Str(P:0:0,s);
s:=Copy(s,1,3);
if Pos(M,s)>0 then Writeln('Yes') else Writeln('No');
ReadKey
end.
<em><u>Тестовое решение:</u></em>
P=54231.70475438
M=4
Yes