3 Информационные процессы и их реализация с компьютера

Объяснение нужны ответы Какие из записей являются верно записанными формулами в электронных таблицах?

1)== C2 + C8

2)?C1 + D1 * D2

3)D100 * D1 =

4)!= A1 + B5

5)=F1 + A1 * A2

6)!!B1 - C3

№2

Прикрепил фото с заданием

№3

В Openoffice.org Calc создали таблицу, заполнив ее ячейки так, как показано на рисунке. Какое число будет находиться в ячейке C1 после того, как будет нажата клавиша Enter?

Комментарий. Если у вас русскоязычная версия электронных таблиц, нужно считать, что вместо IF записано ЕСЛИ.

№4

В электронную таблицу занесли результаты тестирования учащихся по русскому языку и математике. На рисунке приведены первые строки получившейся таблицы.

В столбце A указаны фамилия и имя учащегося; в столбце B – район города, в котором расположена школа учащегося; в столбцах C, D – баллы, полученные соответственно по русскому языку и математике. По каждому предмету можно было набрать от 0 до 100 баллов.

Всего в электронную таблицу были занесены данные по 263 учащимся. Порядок записей в таблице произвольный. Откройте файл с данной электронной таблицей: /uploads/inner_file/file/9768/table2.xls. На основании данных, содержащихся в этой таблице, ответьте на во чему равна наименьшая сумма баллов по двум предметам среди учащихся Заречного района?

№5

Прикрепил фото с заданием

№7

прикрепил фото с заданием

//1
Var
 a,b,z:integer;
 function max(a,b:integer):integer;
 begin
  if a>b then max:=a else max:=b;
 end;

 begin
 read(a,b);
 z:=max(a,2*b)*max(2*a-b,b);
 writeln(z);
end.

//2(если имеются в виду чётные по индексу)
Const
 n=5;

Var
 ar:array[1..n] of integer;
 i,r:integer;
begin
 writeln('Array:');
 for i:=1 to n do
  begin
   readln(ar[i]);
   if not(odd(i)) then r:=r+ar[i];
  end;
 writeln(r);
end.

//2(если имеются в виду чётные по значению)
Const
 n=5;
Var
 ar:array[1..n] of integer;
 i,r:integer;
begin
 writeln('Array:');
 for i:=1 to n do
  begin
   readln(ar[i]);
   if not(odd(ar[i])) then r:=r+ar[i];
  end;
 writeln(r);
end.

//3
Const
 n=2;
 m=3;

Var
 ar:array[1..n,1..m] of integer;
 i,j:integer;
begin
 writeln('Matrix:');
 for i:=1 to n do
  for j:=1 to m do
   begin
    readln(ar[i,j]);
    if ar[i,j]<0 then ar[i,j]:=0;
   end;
 writeln('Final matrix:');
 for i:=1 to n do
 begin
  for j:=1 to m do
   write(ar[i,j]:4);
  writeln;
 end;
end.

//4(не знаю на сколько это похоже на паркет)
uses
 GraphABC;
 Const r=30;
 Var
 i,x,y:integer;
begin
 x:=300;
 y:=300;
 maximizewindow;
 circle(x,y+r,r);
 floodfill(x,y+r,clPurple);
 circle(x,y-r,r);
 floodfill(x,y-r,clPurple);
 circle(x+r,y+r,r);
 floodfill(x+r,y+r,clPurple);
 circle(x-r,y-r,r);
 floodfill(x-r,y-r,clPurple);
 circle(x-r,y+r,r);
 floodfill(x-r,y+r,clPurple);
 circle(x+r,y-r,r);
 floodfill(x+r,y-r,clPurple);
end.

//5
uses
 GraphABC;

Var
 i,x,y:integer;
begin
 maximizewindow;
 Setbrushstyle(bsClear);
 setpencolor(clBlue);
 circle(300,300,15);
 setpencolor(clyellow);
 circle(315,315,15);
 setpencolor(clBlack);
 circle(330,300,15);
 setpencolor(clGreen);
 circle(345,315,15);
 setpencolor(clRed);
 circle(360,300,15);
end.

//6
uses
 GraphABC;

 Var
 x,y,i:integer;
begin
 x:=0;
 y:=windowheight;
 window.Width:=windowheight;
 while x+10<windowwidth do
 begin
 line(x,y,x+5,y-5);
 line(x+5,y-5,x+10,y);
 line(x+10,y,x,y);
 sleep(10);
 clearwindow;
 inc(x);
 dec(y);
 end;
 line(x,y,x+5,y-5);
 line(x+5,y-5,x+10,y);
 line(x+10,y,x,y);
end.