Задать вопрос
14 декабря, 03:31

Написать программу получения ряда чисел в диапазоне до 100. Распечатать из них только четные.

+5
Ответы (1)
  1. 14 декабря, 06:37
    0
    Var i, s: integer;

    begin

    s:=0;

    for i:=1 to 100 do

    if (i mod 2 0) then s:=s+i;

    end;
Знаете ответ?
Сомневаетесь в ответе?
Найдите правильный ответ на вопрос ✅ «Написать программу получения ряда чисел в диапазоне до 100. Распечатать из них только четные. ...» по предмету 📘 Информатика, а если вы сомневаетесь в правильности ответов или ответ отсутствует, то попробуйте воспользоваться умным поиском на сайте и найти ответы на похожие вопросы.
Смотреть другие ответы
Похожие вопросы по информатике
Получить двумерный массив случайных чисел в интервале от - 10 до 10. Распечатать размером 5 х5, заменить все четные строчки значением 100. Распечатать измененный массив.
Ответы (1)
полностью заполненного картриджа лазерного принтера хватает, чтобы распечатать 1600 страниц при трехпроцентном заполнении страницы. После включения режима экономии тонера можно распечатать на 20% страниц больше.
Ответы (1)
Вычислить произведение четырех натур. чисел, используя только операцию сложения. (Язык пр:pascal) 1) Написать программу (обычную) 2) Написать программу с использованием процедуры 3) Написать программу с исп. функции 4) Написать программу с исп.
Ответы (1)
1. Написать программу для определения количества двузначных чисел в диапазоне от А до B, которые при делении на 6 дают остаток 2. 2. Найти сумму двузначных чисел в диапазоне от А до B, в которых первая цифра ровно в 2 раза больше второй.
Ответы (1)
Решите задачи: 1) Составьте программу ввода элементов массива [1 ... 8] с клавиатуры и вывода на экран элементов массива с отрицательными значениями. 2) Составьте программу, которая заполняет массив а [1 ...
Ответы (1)