1. Найти произведение всех натуральных чисел, кратных 3 и меньших 13. Обратите внимание, что начальное значение Р=1. 2. Найти количество натуральных чисел, нечет

+1
Ответы (1)
  1. 27 марта, 22:58
    0
    program zz1;

    var p, i:integer;

    begin

    p:=1; / /задаем начальное значение произведению

    for i:=1 to 13 do / /задаем цикл до тринадцати, перебираем все числа от 1 до 13

    if i mod 3 = 0 then p:=p*i; / /проверяем, если число делится на три, то умножаем его на произведение

    write ('произведение чисел кратных трем = ', p); / /выводим ответ

    end.
Знаешь ответ на этот вопрос?
Новые вопросы по информатике
Что такое бит с позиции алфавитного подхода к измерению информации?
Ответы (1)
Для создания и обработки электронных документов используется компьютерные программы (отметь). Графический планшет; Текстовый редактор; Графический редактор; Калькулятор; Музыкальный редактор; Сканер; Клавиатурный тренажёр.
Ответы (1)
Установите соответствие между типами файлов и расширениями файлов. Текстовый файл Графический файл Web-страница Звуковой файл Видеофайл Системный файл Исполняемый файл txt bmp htm doc jpg mp3 html gif midi mpeg sys exe avi com
Ответы (1)
Составьте программу для решения следующей задачи массив б задан случайным образом подсчитать сумму элементов массива состоящих из нечётных чисел
Ответы (1)
Маша набирает текст со скоростью 40 символов в минуту, а Катя - 20 символов в минуту. Через какое время девочки введут одинаковое количество символов, если Катя начала набирать текст на 5 минут раньше Маши?
Ответы (1)
Кодирование нотной записи занимает 14 байт. Каждая нота кодируется одним 2 битами. Сколько нот в записи?
Ответы (1)
какое значение будет иметь переменная S после выполнения следующего оператора S=0, i=2 Repeat i:=2*i; S: = S+i until i > 10
Ответы (1)
Дано N чисел. Найти самое большое число, на которое делятся все N чисел.
Ответы (1)
система охлаждения процессора, предстовляющея собой металлический радиатор с вентилятором
Ответы (1)
Найти индексы всех элементов массива, значение которого равно нулю, если таковой существует
Ответы (1)