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

Спо инфе 9 класс паскаль. только не с интернета ответ, а сами, т. к. использовать можно только integer и string

👇
Открыть все ответы
Ответ:
strong28
strong28
20.05.2023

Вот эти
- вставка таблицы – это проще всего. Здесь вы можете выбрать или ввести необходимое количество столбцов и строк, все они будут иметь одинаковую высоту и ширину, которую можно регулировать курсором. Кстати, вставлять таблицу можно и в уже существующую;
- нарисовать таблицу. В этом методе больше возможностей. Вы сможете разбивать отдельные столбцы и строки на части и делать таблицу более сложной. При переходе в режим рисования курсор принимает вид карандаша, который рисует только прямые линии;
- вставить таблицу из Excel. Так данный программный продукт предназначен именно для работы с таблицами, то разработчики интегрировали эти две программы для удобства пользователя;
- использовать готовый шаблон. Этот для любителей красоты в документе. Вы просто вставляете готовую таблицу с оформленным дизайном и редактируете ее под свои нужды.
Также не забывайте, что все приведенные можно использовать одновременно для создания и редактирования одной таблицы. И если при создании браузеров программисты Microsoft, по утверждению многих пользователей, халтурят, то здесь их обвинить не в чем, ведь по удобству и возможностям Word практически не имеет конкурентов среди текстовых редакторов.

4,7(3 оценок)
Ответ:
katyaibadova
katyaibadova
20.05.2023
//1
var A, B, i: integer;
begin
  write('Введите A и B: '); readln(A, B);
  for i := A to B do
    if ((i mod 3 = 0) and (i mod 10 = 3)) then writeln(i);
end.

//2
var
  A, B, i, k: integer;
begin
  write('Введите A и B: '); readln(A, B);
  for i := A to B do
    if ((i > 99) and (i < 1000)) and ((i mod 10 = 9) and (i mod 100 <> 99)) then
    begin
      writeln(i);
      k := k + 1;
    end;
    if k = 0 then writeln('Таких чисел нет.');
end.

//3
var sum, i, n: integer;
begin
  write('Введите количество предметов: '); readln(n);
  for i := 1 to n do
  begin
    readln(n);
    sum := sum + n;
  end;
  writeln('Общая масса = ', sum);
end.

//3 с другим циклом
var sum, n: integer;
begin
  writeln('Введите 0 для завершения ввода.');
  repeat
    readln(n);
    sum := sum + n;
  until n = 0;
  writeln('Общая масса = ', sum);
end.
4,5(40 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ