1)var a:array[1..15] of integer;
i,s:integer;
begin
randomize;
for i:=1 to 15 do a[i]:=random(20)+10;
for i:=1 to 15 do if a[i] mod 3=0 then s:=s+1;
writeln(s);
end.
2)var a: array[1..10] of integer;
i, s: integer;
begin
randomize;
for i := 1 to 10 do a[i] := random(21) - 10;
for i := 1 to 10 do if (a[i] > 0) and (a[i] mod 2 = 0) then s := s + 1;
writeln(s);
end.
Var x,y: real;
begin
read(x);
y:=(2*x)/(4-x);
writeln('y=',y);
end.
Вторая задача
var k,i,p:integer;
begin
p:=1;
read(k);
for i:=1 to k do
if i mod 2=1 then p:=p*i;
writeln( 'p=',p);
end.
Рабочая книга (документ Excel) состоит из рабочих листов,
каждый из которых является электронной таблицей. По умолчанию открывается три
рабочих листа или три электронных таблицы, переход к которым можно осуществить,
щелкая на ярлычках, расположенных внизу книги. При необходимости в книгу можно
добавить рабочие листы (электронные таблицы) или удалить их из книги.