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

Гипертекст — это: выберите один ответ: a. обычный, но большой по объему текст организации текстовой информации, внутри которой установлены смысловые связи между ее различными фрагментами c. распределенная совокупность баз данных, содержащих тексты d. текст, буквы которого набраны шрифтом большого размера

👇
Ответ:
dissdd7
dissdd7
06.04.2022
Правильный ответ b
4,5(88 оценок)
Открыть все ответы
Ответ:
eka445590226
eka445590226
06.04.2022
// PascalABC.NET 3.2, сборка 1381 от 04.02.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var a,b,h:real;
  Write('Введите начальное значение, конечное и шаг: ');
  Read(a,b,h);
  var n:=Trunc((b-a)/h)+1;
  for var i:=1 to n do begin
    var x:=a+(i-1)*h;
    var y:=(x>0) and (x<=2)?x*x+Cos(x):4/x;
    Writeln(x:0:3,' ',y:0:5)
    end
end.

Пример
Введите начальное значение, конечное и шаг: -2.5 1.6 0.2
-2.500 -1.60000
-2.300 -1.73913
-2.100 -1.90476
-1.900 -2.10526
-1.700 -2.35294
-1.500 -2.66667
-1.300 -3.07692
-1.100 -3.63636
-0.900 -4.44444
-0.700 -5.71429
-0.500 -8.00000
-0.300 -13.33333
-0.100 -40.00000
0.100 1.00500
0.300 1.04534
0.500 1.12758
0.700 1.25484
0.900 1.43161
1.100 1.66360
1.300 1.95750
1.500 2.32074
4,5(69 оценок)
Ответ:
nalimovshurik
nalimovshurik
06.04.2022
1)

program t1;
var
a: array[1..6] of integer;
i, m, mi: integer;
begin
writeln('ввод массива');
for i := 1 to 6 do
readln(a[i]);
mi := 1;
m := a[mi];
for i := 2 to 6 do
if a[i] < m then
begin
mi := i;
m := a[mi];
end;
writeln('минимум: ', m, ' (a[', mi, '])');
end.

2) предполагая, что 'коробочка' - это корень

program t2;
const
F = -8;
T = 6;
S = 2;
var
i: real;
function GetY(x: real): real;
begin
if (x > -3) and (x <= 3) then
GetY := sqrt(x)
else
GetY := 1 / (x * x);
end;
begin
writeln('промежуток [', F, '; ', T, '], шаг ', S, ':');
i := F;
while i <= T do
begin
writeln('y(', i, ') = ', GetY(i));
i := i + S;
end;
end.
4,8(80 оценок)
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ