Укажите вид ссылки: А1

a) Абсолютная

b) Гиперссылка

c) Относительная

d) Смешанная

2. Адресом ячейки является…

a) $A1

b) B$2S

c) C1

d) 1E

3. Дан фрагмент электронной таблицы в режиме отображения формул:

Чему будет равно значение ячейки С2 после копирования в неё формулы из С1?

a) 21

b) 63

c) 14

d) 6

4. Абсолютной ссылкой является …

a. A2

b. &2L

c. $A$2

d. T&&2

5. По умолчанию числовое значение в электронных таблицах выравнивается по…

a) Центру

b) правому краю

c) левому краю

d) ширине

6. Ввод формул в таблице начинается со знака…

a) @

b) $

c) =

d) :

7. Диапазон – это …

a) все ячейки одного столбца

b) множество допустимых значений

c) прямоугольная часть таблицы

d) все ячейки одной строки

8. В электронной таблице невозможно удалить …

a) Столбец

b) имя ячейки

c) содержимое ячейки

d) строку

9. Электронные таблицы – это …

a) прикладная программа, предназначенная для организации табличных вычислений на компьютере

b) прямоугольные таблицы

c) приложения, работающие в диалоговом режиме

d) таблицы, созданные в текстовых редакторах

10. Файлы Excel имеют расширение

a) а) .mdb

b) б) .bmp

c) в) .exe

d) г) .xls

Укажите вид ссылки: А1a) Абсолютнаяb) Гиперссылкаc) Относительнаяd) Смешанная2. Адресом ячейки являе

Показать ответ

Ответ:

SABA30031

11.07.2021 04:32

Const
    N = 10;

var
    A: array[1..N] of integer;

function Fun: integer;
var
    i, M: integer;
begin
    writeln('Введите число M=');
    readln(M);
    for i := 1 to N do
        if A[i] = M then Fun := i;
end;

procedure CreateMassive;
var
    i: integer;
begin
    for i := 1 to N do
    begin
        A[i] := Random(199) - 100;
        write(A[i],' ');
    end;
    Writeln;
end;

begin
    CreateMassive;
    Writeln(Fun);
end.

вот вариант исправления который работает, хотя конечно не факт что он работает как там кто-то задумывал)))
не понятно было назначение функции Fun потому она делает поиск номера элемента равного М
а вообще глобальные переменные это зло. Так что проектирование тут в корне не верно

0,0(0 оценок)

Ответ:

yanakrl1

26.08.2021 14:31

Program pr;
uses crt;
Var a,b,c:integer;

Begin
Write('Введите 1-ю сторону: '); Readln(a);
Write('Введите 2-ю сторону: '); Readln(b);
Write('Введите 3-ю сторону: '); Readln(c);

{Проверка на существование треугольника}
if ((a+b)>c) and ((a+c)>b) and ((b+c)>a)   then
Begin
  if ((a=b)or (b=c) or (a=c)) then
  Writeln('Треугольник равнобедренный');

if ((a=b) and (b=c)) then
  Writeln('Треугольник равносторонний')
else Writeln('Треугольник разносторонний');

if ((a*a+b*b = c*c) or (a*a+c*c = b*b) or (b*b+c*c = a*a)) then
Writeln('Треугольник прямоугольный');
  end
else Writeln('Треугольник нельзя построить');

Readln();
END.

0,0(0 оценок)

Популярные вопросы: Информатика