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

Определите значение переменной a после выполнения фрагмента программы:
a := 10;
b := 5;
if (a > 5) and (a < b) then
a := a - 5;
ответ:

2. Определите значение переменной a после выполнения фрагмента программы:
a := 10; b := 5;
if (a > 1) or (a < b) then
a := a - 5;
if (a > 1) and (a = b) then
a := a - 5;
ответ:

3. Определите значение переменной a после выполнения фрагмента программы:
a := 10;
b := 5;
if (a > 1) and (a < b) then
a := a - 5;
if (a > 1) and (a = b) then
a := a - 5;
ответ:

👇
Ответ:
kir28082000
kir28082000
20.11.2021

Отв

Объяснение:

a : = 10; b : = 5;

if (a > 1) and (a < b) then

a : = a - 7

else

a : = a + 7;

4,7(7 оценок)
Открыть все ответы
Ответ:
Alisa1Karimova
Alisa1Karimova
20.11.2021

1) Качество системы (пиратская может выдать ошибку при исправной системе в работах на приложениях).

2) С лицензионной Windows можно получить бесплатную от поставщика компьютера или от отдела технической поддержки Microsoft.

3) С лицензионой "Виндой" можно иметь доступ к постоянно обновляемым услугам защиты информации — пираты этих возможностей Вам не предоставляют.

4) Еще один большой плюс лицензионных операционных систем — это возможность их установки на машины по локальной сети.

5) Наличие сертификатов качества от Microsoft в лицензированной версии.

4,4(51 оценок)
Ответ:
R5R5ty
R5R5ty
20.11.2021

===== PascalABC.NET =====

function Coeff(x, y: array of real): (real, real);

begin

 var Sx := x.Sum;

 var Sy := y.Sum;

 var Sx2 := x.Sum(p -> p * p);

 var Sxy := x.Zip(y, (p, q) -> p * q).Sum;

 var n := x.Length;

 var a0 := (Sy * Sx2 - Sxy * Sx) / (n * Sx2 - Sqr(Sx));

 var a1 := (n * Sxy - Sy * Sx) / (n * Sx2 - Sqr(Sx));

 Result := (a0, a1)

end;

begin

 var n := ReadInteger('Количество точек:');

 var x := ReadArrReal('Значения х:', n);

 var y := ReadArrReal('Значения y:', n);

 var (a0, a1) := Coeff(x, y);

 $'a0 = {a0}, a1 = {a1}'.Print

end.


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