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

1) Чи можна висловлювання «Київ – столиця України» розглядати як логічний вираз

Так

Ні

2) var x, y, z : Integer; A, B, C : Boolean;

Які оператори присвоювання допустимі?

z := x
C := A Or B;

A := x>y;

C := A + B;

3) Величини, які можуть набувати лише одного із двох значень: істина або

хибність, називаються …

логічними

символьними

рядковими

числовими

4) Пріоритет виконання логічних операцій в логічному виразі(пронумеруйте

порядок виконання команд)

операції диз’юнкції

операції кон’юнкції

операції в дужках

операції заперечення

операції виконуються зліва направо

5) Пріоритет виконання логічних операцій в логічному виразі(пронумеруйте

порядок виконання команд)

операції диз’юнкції

операції кон’юнкції

операції в дужках

операції заперечення

операції виконуються зліва направо

6) Блок-схема якого алгоритму зображена на малюнку?(1 Мал.)

Алгоритм з розгалуженням

Алгоритм з повторенням

Лінійний алгоритм

7) Базова алгоритмічна структура, призначена для організації багаторазового

виконання набору команд - це...

повторення

слідування

розгалуження

8) var A : Real; B: Integer;

В яких операторах правильно організовано введення значень змінних?

А := StrToFloat(Edit1.Text);

В := StrToInt(Edit1.Text);

А := StrToInt(Edit1.Text);

Edit1.Text := FloatToStr (А);

9) Який алгоритм зображений на блок-схемі?(2 Мал.)

Лінійний

Циклічний

Розгалуження

👇
Открыть все ответы
Ответ:
777sofia777
777sofia777
18.11.2021
Дешифровка: ВХОД_ОТКР Ы Т.

дешифровки:
Const sh = '_.,';
Var
  St : String;
  i  : Integer;
Function DeCode(S : String; Tabl : String; k : Integer) : String;
Var j,n : Integer;
Begin
  For j:=1 to Length(S) do
  Begin
    n:=Pos(S[j],sh);
    If n>0 then
    Begin
      n:=n+k;
      While n>Length(sh) do n:=n-Length(sh);
      While n<=0 do n:=n+Length(sh);
      S[j]:=sh[n];
    end
  end;
  DeCode:=S;
end;
Begin
  St:='ЗЫФЙГФШРЦ . ШД';
  Writeln(Decode(St,sh,-6));
  //For i:=-10 to 10 do Writeln(Decode(St,sh,i));
end.
4,6(36 оценок)
Ответ:
ketrinmaknamar
ketrinmaknamar
18.11.2021
Расстояние от точки до начала координат находится как длина гипотенузы прямоугольного треугольника, катетами которого являются координаты точки. Поскольку нам нужны не сами расстояния, а лишь сравнить их, то можно сравнивать квадраты, чтобы не извлекать корня.r_i^2=x_i^2+y_i^2

// PascalABC.NET 3.0, сборка 1088
var
  x1,x2,y1,y2,r1,r2:real;
begin
  Write('Введите координаты первой точки: '); Read(x1,y1);
  Write('Введите координаты второй точки: '); Read(x2,y2);
  r1:=sqr(x1)+sqr(y1); r2:=sqr(x2)+sqr(y2);
  if r1>r2 then Writeln('Ближе вторая точка')
  else
    if r1<r2 then Writeln('Ближе первая точка')
    else Writeln('Точки равноудалены')
end.

Тестовое решение:
Введите координаты первой точки: 16.3 -11.7
Введите координаты второй точки: 15.8 12
Ближе вторая точка
4,4(16 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ