М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
makksimgrechko
makksimgrechko
27.05.2022 20:15 •  Информатика

22. возможно ли в форме в access изменение или добавление данных? а) возможно только изменение записей, а добавление невозможно; б) да, форма для этого и создается, чтобы облег-чить ввод и изменение данных; в) возможно только добавление записей, а изменение невозможно.

👇
Ответ:
dazacyhko
dazacyhko
27.05.2022
Да, форма для этого и создаётся, чтобы облегчить ввод и изменение данных.
(ответ б)
4,6(75 оценок)
Открыть все ответы
Ответ:
danilasen34
danilasen34
27.05.2022
Const
  n = 200;

var
  a: array[1..n] of integer;
  i, s: integer;

begin
  Randomize;
  Writeln('Элементы массива, кратные трем:');
  s := 0;
  for i := 1 to n do
  begin
    a[i] := Random(301)-150;
    if (a[i] mod 3)=0 then Write(a[i],' ');
    if a[i]>0 then s:=s+a[i]
  end;
  Writeln;
  Writeln('Сумма положительных элементов равна ',s)
end.

Тестовое решение:
Элементы массива, кратные трем:
-144 27 -15 135 129 -114 33 66 -15 135 -3 105 -129 -6 -60 21 -108 -78 -123 93 -51 -60 -120 27 129 -33 -30 -66 -39 6 51 141 -75 -30 48 -90 87 -39 18 -45 144 -120 75 -111 6 72 -42 114 -27 120 -144 -120 96 135 -24 -9 141 -93 111 15
Сумма положительных элементов равна 7980
4,4(73 оценок)
Ответ:
Kseniakool
Kseniakool
27.05.2022

Объяснение:

1.

var

 a:array[1..1000] of integer;

 i, n:integer;

 count:integer;

begin

 writeln('Input n = ');

 readln(n);

 for i:=1 to n do begin

   writeln('Input a[', i, '] = ');

   readln(a[i]);

 end;

 count:=0;

 i:=1;

 while (i<=n) do begin

   if (((a[i] mod 3) = 0) and ((a[i] - (a[i] div 10)*10) = 2)) then count:=count + 1;

   i:=i+1;

 end;

 writeln(count);

 readln;

end.

2.

var

 a:array[1..1000] of integer;

 i, n:integer;

 count:integer;

begin

 writeln('Input n = ');

 readln(n);

 for i:=1 to n do begin

   writeln('Input a[', i, '] = ');

   readln(a[i]);

 end;

 count:=0;

 i:=1;

 repeat

   if (((a[i] mod 3) = 0) and ((a[i] - (a[i] div 10)*10) = 2)) then count:=count + 1;

   i:=i+1;

 until (i > n);

 writeln(count);

 readln;

end.

4,5(35 оценок)
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ