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

Паскаль abc.net . иван петрович надел новые штаны и сел на только что окрашенную табуретку . на его штанах появилась квадратное пятно зеленого цвета, длина стороны a см. оказалось ,что в химчистку берут одежду пятна на которому пятно не больше за s см ². выяснить ,удалось ли ивану свои штаны.

👇
Ответ:
bestia1954
bestia1954
10.10.2021
Var a,s:real;
begin
write('Введите сторону а: ');
readln(a);
write('Введите площадь S: ');
readln(s);
if (a*a>s) then writeln('Штаны не Штаны
end.
4,8(97 оценок)
Открыть все ответы
Ответ:
bizi2002
bizi2002
10.10.2021

1. Двічі клацаємо лівою кнопкою миші на формулі в Word – документі для відкриття вікна додатка MathType

2. Вибираємо в меню пункт Установки -> Вырезание и копирование…

3. Переставити радіокнопку на MathML or TeX .

4. Для економії місця прибрати галочки з обох підпунктів --- Include translator name in translation і Include MathType data in translation. 5. Натиснути OK. Ці налаштування зберігаються і в нових сесіях роботи з текстовим редактором Word.

Для копіювання будь-якої формули необхідно: 1. Виділити цю формулу (наприклад, одним натисканням на формулі лівою кнопкою миші)

2. Вибираємо в меню додатка Word пункт Формула -> Переключить в Tex (Рис.5) (або комбінацію “Alt + \”). Вказані кнопка та комбінація працюють як перемикачі: повторне натискання приводить до початкового виду формули

3. Копіюємо код формули в форматі Tex (“Ctrl + C”). 4. Переходимо до вікна редагування тестів в системі JetIQ, клацаємо лівою кнопкою миші в місті введення формули та клацанням лівою кнопкою миші на символі  відкриваємо вікно вбудованого редактора Tex «Математика у Tex»

5. Клацати лівою кнопкою миші у верхній половині вбудованого вікна «Математика у Tex», де стандартно записаний код для формули коренів повного квадратного рівняння, не обов’язково, оскільки воно вже активне. Виділяємо весь текст (наприклад, “Ctl + A”) та вставляємо формулу з буферу обміну (“Ctl + V”)

6. В нашому прикладі, в нижній половині вікна «Математика у Tex» з’явилася потрібна формула, що оформлена з відповідним дизайном. З обох сторін формули знаходяться по два символи, виділені червоним кольором \[ та \]. Ці символи необхідно видалити вручну в коді формули, що розміщений у верхній (текстовій) половині цього вікна

7. Тиснемо кнопку «ОК» і отримаємо готову формулу в тексті поточного питання тестів

8. Розмір шрифту формул можна міняти за до тієї самої кнопки, що і для шрифту тексту. Зауваження. 1. Отже, запропоновано б перенесення формул, що набрані за до в Word-документі, у вбудований в систему JetIQ додаток Tex. Цей б створений на основі аналізу інтернет-рекомендацій та власних експериментів. Цілком можливо, що існують більш ефективн Код формули в синтаксисі Tex, що отриманий під час конвертації з Mathtype, часто є більш громіздким, ніж це можна б було зробити вручну, але на зовнішній вигляд формули, в більшості випадків, це не впливає. 3. З обох сторін формули можуть з’явитися інші зайві символи, ніж в нашому прикладі (див. п. 7). Крім цього, виникають й інші ситуації, зокрема описані в наступному пункті. 4. В деяких випадках зовнішній вигляд формули не є найкращим, наприклад, див. рис

Набрана вручну ця формула має вигляд, що повністю збігаєтся з традиційним записом границь

Все одно, практика показала, що запропонований б стане в нагоді в багатьох випадках.

4,6(94 оценок)
Ответ:
valia01022004
valia01022004
10.10.2021
// PascalABC.NET 3.2, сборка 1325 от 19.10.2016
begin
  var L:=new List<integer>;
  Writeln('Вводите целые числа, окончание ввода по -777');
  var n:integer;
  repeat
    n:=ReadInteger;
    if n<>-777 then L.Add(n);
  until n=-777;
  Writeln('Исходный список'); Writeln(L);
  n:=ReadInteger('Введите искомое число:');
  var p:=L.FindIndex(k->k=n); // искомый элемент
  if p<0 then Writeln('Искомый элемент в списке не найден')
  else begin
    Writeln('Элемент ',L.Item[p-2],' удален');
    L.RemoveAt(p-2); Writeln(L); // удалили и убедились
    n:=ReadInteger('Введите число для вставки:');
    L.Insert(p-1,n); Writeln(L)
    end
end.

Пример
Вводите целые числа, окончание ввода по -777
1 6 12 73 -15 34 18 0 24 -777
Исходный список
[1,6,12,73,-15,34,18,0,24]
Введите искомое число: 34
Элемент 73 удален
[1,6,12,-15,34,18,0,24]
Введите число для вставки: 1000
[1,6,12,-15,1000,34,18,0,24]
4,5(77 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ