profile
Опубликовано - 1 неделя назад | По предмету Информатика | автор Аноним

Найти сумму целых положительных чисел, больших 20,меньших 120 и кратных 9 и не заканчивающих на 5

  1. Ответ
    Ответ дан Казаков Владлен

    Обозначим буквой s искомую сумму, а буквой i – значения чисел, больших 20 и меньших 120. Таких чисел будет несколько, поэтому в программе будем использовать оператор цикла с параметром for. Тогда программа на языке Pascal ABC будет иметь вид:

    n

    program zadacha;

    n

    uses crt;

    n

    var s, i :integer;

    n

    begin

    n

    s:=0; {Начальное значение суммы s }

    n

    for i := 21 to 119 do

    n

    if (i mod 9=0) and (i mod 10<>5) {Проверка чисел на кратность 9 и на то, что они не заканчиваются на 5}

    n

    then s:=s+i; {Суммирование чисел, удовлетворяющих условию задачи}

    n

    write('s=', s); {Вывод результата суммы s на экран}

    n

    END.

    n

    Ответ: s=747

    0



Топ пользователи


Hekady (
206)
shozavitya (
180)
znanija (
172)
Eveline (
58)