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

Написать программу для решения : ввести элементы массива а, состоящего из 11 целых элементов, вывести элементы квадраты элементов массива, стоящих на четных местах, в обратном порядке (используется цикл for со служебным словом downto)

👇
Ответ:
Назерке2707
Назерке2707
07.12.2020

Полин. Всё с тобой понятно

4,5(37 оценок)
Открыть все ответы
Ответ:
Ejdncenejfjdj
Ejdncenejfjdj
07.12.2020

оператор присваивания :=

оператор ввода read(x1,x2,...,xn) или readln(x1,x2,...,xn)

оператор вывода write(x1,x2,...,xn) или writeln(x1,x2,...,xn)

условный оператор if условие then оператор 1 else оператор 2

оператор варианта case управляющая переменная of

                                     набор значений1: оператор1;

                                     набор значений2: оператор2;

                                     ...

                                     набор значенийn: операторN

                               else

                                    альтернативный оператор

                              end;

оператор цикла с предусловиями while ... do

оператор цикла с постусловием repeat ... until

оператор цикла for ... do

оператор break осуществляет немедленный выход из циклов repeat, while, for.

оператор continue начинает новую итерацию цикла, даже если предыдущая не была завершина.

оператор exit осуществляет выход из подпрограммы.

оператор halt прекращает выполнение программы и возвращает код завершения в операционную систему.

4,7(41 оценок)
Ответ:
Anuliks
Anuliks
07.12.2020
Разъяснения разместил в код программы в виде комментариев

//Объявление переменных
//n - количество чисел
//p - произведение найденных чисел
//i - переменная для организации цикла
var
  n, p, i: integer;

begin
  //Переменная p = 1,
  //так как в процессе работы программы в ней
  //накапливается произведение найденных чисел
  p := 1;
  write('Введите количество чисел ');
  //В n - количество вводимых чисел
  readln(n);
  // цикл со счетчиком в котором вводим n чисел,
  for i := 1 to n do
    // Проверяем очередное значение i на кратность 3
    // и выясняем, заканчивается ли это число на 1.
    // Для этого используем целочисленное деление.
    // mod - остаток от деления
    // если i mod 3 = 0, значит i кратно 3
    // если i mod 10 = 1, значит i оканчивается на 1
   
    if (i mod 3 = 0) and (i mod 10 = 1) then
      p := p * i; //умножим p на найденное число
  //Вывод произведения найденных чисел
  writeln('Искомое произведение ', p);
end.

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