Дайте решение в паскале только аОпрделите значения переменных s и i после выполнения23. Определите зн:фрагмента программы:s:=0; i:=5;while i>0 dobegins:=s+і;i:=i-1;end;a) s = 0, i= -1б) s = 5, i = 0в) s = 15, i = 5г) s = 15, i = 0​

ответ: ответ Г

Объяснение:  s = 0, i = 5, дальше s = 5 , i = 4, дальше s = 9, i = 3, дальше s = 12, i = 2, дальше s = 14, i = 1, дальше s = 15 , i = 0. Выходит ответ s = 15, i = 0. (Логично)

 # Код на ruby 2.2.3p173
a1, a2 = [], []
for i in 100..999
    t = i
    s = 0
    while t>0
        s += t % 10
        t = t / 10
    end

    a1<<i if i%7==0 and s%7==0
    a2<<i if i%47==43
end

p a1
p a2

a3 = []
sum = 0

for i in 31..99
    if i%3==0 and (i%10==2 or i%10==4 or i%10==8)
        a3<<i
        sum += i
    end
end

p sum
p a3

Вывод
[133, 266, 322, 329, 392, 399, 455, 511, 518, 581, 588, 644, 700, 707, 770, 777, 833, 966]
[137, 184, 231, 278, 325, 372, 419, 466, 513, 560, 607, 654, 701, 748, 795, 842, 889, 936, 983]
378
[42, 48, 54, 72, 78, 84]

 # Код на ruby 2.2.3p173
a1, a2 = [], []
for i in 100..999
    t = i
    s = 0
    while t>0
        s += t % 10
        t = t / 10
    end

    a1<<i if i%7==0 and s%7==0
    a2<<i if i%47==43
end

p a1
p a2

a3 = []
sum = 0

for i in 31..99
    if i%3==0 and (i%10==2 or i%10==4 or i%10==8)
        a3<<i
        sum += i
    end
end

p sum
p a3

Вывод
[133, 266, 322, 329, 392, 399, 455, 511, 518, 581, 588, 644, 700, 707, 770, 777, 833, 966]
[137, 184, 231, 278, 325, 372, 419, 466, 513, 560, 607, 654, 701, 748, 795, 842, 889, 936, 983]
378
[42, 48, 54, 72, 78, 84]