Задать вопрос
13 января, 12:55

Найди сумму положительных нечётных чисел из промежутка от a до b, делящихся без остатка на 3

+2
Ответы (2)
  1. 13 января, 15:04
    0
    var

    a, b, i, Summ:integer;

    begin

    Summ : = 0;

    write ('a = ') ; readln (a) ;

    write ('b = ') ; readln (b) ;

    for i : = a to b do

    if (i > 0) and (i mod 3 = 0) then

    inc (Summ, i) ;

    writeln ('Summ = ', Summ) ;

    readln;

    end.
  2. 13 января, 16:25
    0
    Program prom;

    Var a, b, i, s: integer;

    Begin

    Readln (a, b) ;

    For i: = a to b do

    If (i > 0) and (i mod 3 = 0) and (i mod 2 = 1) then

    s:=s+i;

    Writeln (s) ;

    Readln;

    End.
Знаете ответ?
Сомневаетесь в ответе?
Найдите правильный ответ на вопрос ✅ «Найди сумму положительных нечётных чисел из промежутка от a до b, делящихся без остатка на 3 ...» по предмету 📘 Информатика, а если вы сомневаетесь в правильности ответов или ответ отсутствует, то попробуйте воспользоваться умным поиском на сайте и найти ответы на похожие вопросы.
Смотреть другие ответы
Похожие вопросы по информатике
Задача № 2. Сумма нечетных чисел Вычислить сумму всех нечетных чисел из интервала [a, b]. Например, сумма нечетных чисел из интервала [3, 9] равна 3 + 5 + 7 + 9 = 24.
Ответы (1)
1) дан массив. найти сумму положительных и нечетных и количество отрицательных четных элементов 2) Дан массив целых чисел.
Ответы (1)
1. Массив и 4 целых чисел вводится с клавиатуры. Найти и вывести произведение элементов массива. 2. Массив из 6 отрицательных и положительных целых чисел вводится в области описания констант. Найти сумму положительных элементов массива. 3.
Ответы (1)
C# Ввести n целых чисел (без массивов). Выяислить и вывести: a) сумму чисел, заканчивающихся на 3 и 4 б) произведение чисел, делящихся на 5 но не делящихся на 3
Ответы (1)
Помогите с кодом по паскалю.→Нужно чтобы ответ который показывается было написано первый столбец столько положительных чисел а если нет положительных чисел в столбце то писало нет положительных чисел в этом столбце←Столбцы пронумеровать Изначально
Ответы (1)