Ответ: могут принимать только значения из некоторого множества
представляют собой последовательность значений
Объяснение:
// PascalABC.NET 3.1, сборка 1250 от 28.05.2016
begin
var s:=ReadInteger('Введите шестизначное натуральное число:').ToString;
if s=ReverseString(s) then Writeln('Это палиндром')
else Writeln('Это не палиндром')
end.
<u><em>Тестовое решение</em></u>
Введите шестизначное натуральное число: 158851
Это палиндром
Обычный фильтр Access используется для отбора записей по значениям нескольких полей. Поле Фильтр для (Filter For) используется, если фокус ввода находится в поле таблицы и нужно ввести конкретное искомое значение или выражение, результат которого будет применяться в качестве условия отбора. Для создания сложных фильтров следует использовать окно расширенного фильтра. Набор записей, которые были отобраны в процессе фильтрации, называется результирующим набором. Чтобы использовать фильтр по выделенному фрагменту, необходимо ... Для того чтобы установить фильтр по выделенному фрагменту, можно воспользоваться также командой контекстного меню Фильтр по выделенному (Filter by Selection) или выбрать из меню Записи (Records) команду Фильтр, Фильтр по выделенному (Filter, Filter by Selection)
// PascalABC.NET 3.3, сборка 1611 от 06.01.2018
// Внимание! Если программа не работает, обновите версию!
begin
write(range(1,ReadInteger()).Sum());
end.
Ответ:
program array3;
const
L = 1;
H = 10;
var
n, i, s: Integer;
A1, A2, A3: array [L..H] of Integer;
begin
Randomize;
for i := L to H do begin
A1 [i] := Random (10);
A2 [i] := Random (10);
A3 [i] := Random (10);
end;
WriteLn ('Первый массив:');
for i := L to H do
Write (A1 [i], ' ');
WriteLn;
WriteLn ('Второй массив:');
for i := L to H do
Write (A2 [i], ' ');
for i := L to H do
if (i < 2) or (i > 7) then
A3 [i] := A1 [i]
else
A3 [i] := A2 [i];
WriteLn;
WriteLn ('Результирующий массив:');
for i := L to H do
Write (A3 [i], ' ');
WriteLn;
ReadLn;
end.
Объяснение:
const
L = 1;
H = 10;
устанавливаются размерности для массивов, здесь можно их изменить