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

С редактора текста создайте документ, содержащий : форматированный текст, таблицы, диаграммы, рисунки. Воспользуйтесь опциями сохранения документа и сгенерируйте автоматически web-документ, эквивалентный оригиналу . Чем будет отличаться от web-документа сгенерированный web-архив?​

👇
Открыть все ответы
Ответ:
ccfnwj3662
ccfnwj3662
21.05.2021
Var x,y,z,Ans:integer;
    u:real;
Begin
  Write('Введите числа x,y,z: ');
  Readln(x,y,z);
  Writeln('Что вычислить из числа ',x,' ?');
  Writeln('1 - sin; 2 - cos; 3 - tg;');
  Readln(Ans);
    case Ans of
    1: begin u:=sin(x); Writeln('sin(',x,') = ',u) end;
    2: begin u:=cos(x); Writeln('cos(',x,') = ',u) end;
    3: begin u:=tan(x);  Writeln('tg(',x,') = ',u) end;
    else Writeln('Ошибка!')    end;
  Writeln('Найти максимальное число из ряда ',u,', ',y,', ',z);
  Writeln('Без модуля - 1; по модулю - 2');
  Readln(Ans);
    case Ans of
     1: begin
         if (u>y) and (u>z) then
 Writeln('Максимальное число - ',u)
          else
                if (y>u) and (y>z) then Writeln('Максимальное число - ',y)
                  else
                      if (z>u) and (z>y) then Writeln('Максимальное число - ',z)
                        else
                            Writeln('Все числа равны.')
        end;
    2: begin
         if (abs(u)>abs(y)) and (abs(u)>abs(z)) then
 Writeln('Максимальное число - ',u)
          else
                if (abs(y)>abs(u)) and (abs(y)>abs(z)) then 
Writeln('Максимальное число - ',y)
                  else
                      if (abs(z)>abs(u)) and (abs(z)>abs(y)) then
 Writeln('Максимальное число - ',z)
                        else Writeln('Все числа равны.')
        end
    end
End.

*.pas прикрепил во вложения
4,8(20 оценок)
Ответ:
Lexa68RUS
Lexa68RUS
21.05.2021

45. ОЗУ, Кэш, рпп

46. Ширина ячейки не вмещает в себя результат

47. Да

48. Драйвер - программа для подключения какого-либо устройства к ОС и работы с ней

49. При абсолютной ссылке добавляют знак $, который позволяет при копировании не изменять строку/столбец

50. Монитор, принтер, колонки, проектор

51. Всплывает меню задач которые можно выполнить над данным файлом/папкой

52. ОС - комплекс программ, предназначенных для управления ресурсами компьютера

53. Все файлы и текст

54-64. устала я)

65. CD-RW

66. Программа — последовательность инструкций, предназначенная для исполнения устройством УВМ.

67.  С равно (=)

68. DOCX, DOCM, DOTX, DOTM

69. К прикладному программному обеспечению

70. Программа предназначенная для просмотра web страниц, поиска информации и т.д.

71. Notepad, TextPad

, MS Word, WordPad, Excel

72.RAW, JPEG, GIF, PNG, TIFF, PSD

73. Форма в Access — это объект базы данных, который можно использовать для создания пользовательского интерфейса для приложения базы данных

74. Normal.dot

75. БД - множество данных организованных  для быстрого и удобного поиска информации

76. Растровые форматы TIFF, JPEG

Векторные форматы DWG, DXF

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