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

Укажіть дії, які можна виконувати з даними в СУБД MS Access за до запиту на вибірку. А. редагувати дані Б. упорядковувати дані В. здійснювати пошук даних за заданими умовами Г. вводити нові дані Д. отримувати нові дані за до обчислень за формулами 2 Укажіть об’єкти табличного процесора Excel, які може бути розміщено всередині клітинки електронної таблиці. A) діаграми Б) числові дані В) текстові дані Г) зображення Д) формули 3 Встановіть відповідність між комбінаціями клавіш і їхнім призначенням А. Ctrl+A 1) відмінити дію Б. Ctrl+Z 2) виділити все В. Ctrl+X 3) копіювати об’єкт Г. Ctrl+C 4) вставити об’єкт Д. Ctrl+V 5) вирізати об’єкт 4 Укажіть кількість слайдів, які містить щойно створена порожня презентація MS PowerPoint. А. жодного Б. один В. відповідно до шаблону оформлення Г. кількість обирає користувач 5 Укажіть програми, які призначено для стискання даних.

👇
Открыть все ответы
Ответ:
Арина7405
Арина7405
12.03.2020
Задача №1
//PascalABC.NET (версия 3.1, сборка 1196 от 09.03.2016)
Var n, i: integer; 
Begin                   
writeln ('Введите число');
readln(n);                                    
writeln('Делители числа:');  
for i := 1 to n div 2 do     
  if (n mod i) = 0 then begin 
    write(i,'  ');
  end;         
End.       

Задача №2 (алгоритм не очень шустрый, но работает и понятный)
//PascalABC.NET (версия 3.1, сборка 1196 от 09.03.2016)
var
  a, b, x, y, nod: integer;

begin
  writeln('Введите a,b');
  readln(a, b);
  x := a;y := b;
  while x <> y do
    if x > y
      then x := x - y
    else y := y - x;
  nod := x;
  writeln('NOD(', a, ',', b, ')=', nod);
end.
4,6(32 оценок)
Ответ:
motay121
motay121
12.03.2020
Var dv,tr,pt,dv1,tr1,pt1,dv2,tr2,pt2 :real;

procedure nod( var dv,tr,pt,dv1,tr1,pt1,dv2,tr2,pt2 :real; );
var a:array[1..6] of real;
i : integer;
begin
dv1:=100;
tr1:=100;
pt1:=100;
for i:= low(a) to high (a) do begin
readln(a[i]);
repeat
if( (a[i] mod 2) =0) then begin
a[i]:=a[i]/2;
dv:=dv+1;
end
else if( ( a[i] mod 3)=0) then begin
a[i]:=a[i]/3;
tr:=tr+1;
end
else if ( ( a[i] mod 5)=0) then begin
a[i]:=a[i]/5;
pt:=pt+1;
end;

untill(a=1);
if dvif trif ptdv:=0;
tr:=0;
pt:=0;
end;
if dv1>0 then dv2:=dv1*2 else dv2:=1;
if tr1>0 then tr2:=tr1*3 else tr2:=1;
if pt1>0 then pt2:=pt1*5 else pt2:=1;
nod:=dv2*tr2*pt2;
writeln(nod);
end;
begin
nod( dv,tr,pt,dv1,tr1,pt1,dv2,tr2,pt2 );
end.

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