Паскаль var a, b:integer begin a:=2; b:=0; while a(ромб) 10 do begin a:=a+2; b:=b+3*a;...

Question

Паскаль var a, b:integer begin a:=2; b:=0; while a(ромб) 10 do begin a:=a+2; b:=b+3*a; end; write (b); end
что будет в результате?

Answer 1

В результате работы программы будет выведено значение переменной b
Вычислим конечное значение b

Всего цикл совершит 4 итерации
а = 2
b = 0
1: а = 2 + 2 = 4   b = 0 + 4 * 3 = 12
2: a = 4 + 2 = 6   b = 12 + 6 * 3 = 30
3: a = 6 + 2 = 8   b = 30 + 8 * 3 = 54
4: a = 8 + 2 = 10   b = 54 + 10 * 3 = 84
Ответ: b = 84

Comments

p.s. то, что вы назвали ромбом, означает неравенство

Answer 2

В результате выполнения программы на экран будет выведено число: 84