Извини рисую я очень плохо думаю главное что б ты понял.
1. Рабочая книга Excel состоит из:
1) рабочих листов;
2. В электронной таблице ячейкой называют:
3) пересечение строки и столбца;
3. Адресом ячейки является:
2) В4;
4. Выбрать из приведённых записей указание на абсолютную адресацию:
3) $D$3;
5. Ввод формул в таблицу начинается со знака:
3) =;
6. Дана электронная таблица: ABC124323623711 Значение числа в ячейке С2 равно:
3) 3;
7. В электронной таблице выделили группу из 4ячеек. Это могут быть ячейки:
3) A1:B2
8. Дана электронная таблица: ABCD1524 21016 В ячейку D2 ввели формулу, вычисляющую выражение по значениям других ячеек: =(A2*B1+C
1). В результате в ячейке D2 появится значение:
(без таблицы не разобраться!!!)
1) 6
2) 14
3) 16
4)
24Тест «Электронные таблицы»вариант 2
1. Основным элементом рабочего листа в электронных таблицах является:
1) ячейка
2. Заголовки столбцов обозначаются:
2) буквами и числами
3) латинскими буквами
3. В строке формул отображается содержимое:
2) текущей ячейки
4. Выбрать из приведённых записей указание на абсолютную адресацию:
4) $N$1
5. Абсолютная адресация нужна для указания ссылки на:
1) конкретную ячейку
6. Дана электронная таблица: ABC113424253312Значение числа в ячейке В1 равно:
1) 1
7. В электронной таблице выделили группу ячеек А1:С2. Сколько ячеек входит в эту группу?
1) 6
8. Дана электронная таблица: ABCD1524 21016 В ячейку D1 ввели формулу, вычисляющую выражение по значениям других ячеек: =СУММ(А2:В
1). В результате в ячейке D1 появится значение:
1) 12
2) 18
3) 28
4) 10
<h2>Программа написана на PascalABC.NET 3.4.2, сборка 1979 (16.02.2019), но компилироваться должна и на обычном Pascal</h2>
не указано, как именно завершать ввод, поэтому сделал завершение словом exit
<h2>Код</h2>
- program task31784852;
- var
- number, maxLength, maxNumber: integer;
- inputIsTrue: boolean;
- inputString, maxLengthString: string;
- begin
- inputIsTrue := false;
- maxLength := 0;
-
- Writeln('Напишите exit, чтобы завершить ввод и получить результат');
-
- while inputIsTrue = false do
- begin
- Readln(inputString);
- if Length(inputString) = 0 then
- continue;
- if inputString = 'exit' then
- break;
- number := number + 1;
- if Length(inputString) > maxLength then
- begin
- maxLength := Length(inputString);
- maxLengthString := inputString;
- maxNumber := number;
- end;
- end;
- Writeln('Самая длинная строка с номером ', number, ': ', maxLengthString);
- end.
<h2>Проверка</h2>
Напишите exit, чтобы завершить ввод и получить результат
a
aa
aaa
aaaaaalsd
pwpefowpeofkpwef
................
...................
123462048201180301313031
znanija.com/task/31784852
exit
Самая длинная строка с номером 9: znanija.com/task/31784852
// PascalABC.NET 3.0, сборка 1088
begin
var a:=ArrRandom(10,-20,20);
a.Println(',');
var m:=a.Max;
for var i:=0 to 9 do
if a[i]=m then a[i]:=0;
a.Println(',')
end.
Тестовое решение:
-14,-7,<em>15</em>,-7,-11,7,4,1,-20,-15
-14,-7,<em>0</em>,-7,-11,7,4,1,-20,-15