35

определите значение переменной s после выполнения фрагмента программы:
s: =0
нц для к от 1 до 5
нц для j от 1 до k
нц для m от 1 до j
s: =s+к+j+m
кц
кц
кц

s: =0;
for k: =1 to 5 do
for j: =1 to k do
for m: =1 to j do
s: =s+k+j+m;
​

ответ:

315

объяснение:

k=1   j=1: m=1-> 1 s=0+(1+1+1)=3

k=2   j=1: m=1-> 1     s=3+(2+1+1)=7

        j=2: m=1-> 2 s=7+(2+2+1)+ (2+2+2)=18

k=3   j=1: m=1-> 1     s=18+(3+1+1)=23

        j=2: m=1-> 2     s=23+(3+2+1)+ (3+2+2)=36

        j=3: m=1-> 3     s=36+(3+3+1)+(3+3+2)+(3+3+3)=60

k=4   j=1: m=1-> 1       s=60+(4+1+1)=66

        j=2: m=1-> 2       s=66+(4+2+1)+(4+2+2)=81

        j=3: m=1-> 3       s=81+(4+3+1)+ (4+3+2)+(4+3+3)=108

        j=4: m=1-> 4       s=108+(4+4+1)+(4+4+2)+(4+4+3)+(4+4+4)=150

k=5   j=1: m=1-> 1       s=150+(5+1+1)=157

        j=2: m=1-> 2       s=157+(5+2+1)+(5+2+2)=174

        j=3: m=1-> 3       s=174+(5+3+1)+(5+3+2)+(5+3+3)=204

        j=4: m=1-> 4       s=204+(5+4+1)+(5+4+2)+(5+4+3)+(5+4+4)=250

        j=5: m=1-> 5       s=250+(5+5+1)+(5+5+2)+(5+5+3)+(5+5+4)+(5+5+5)=315

Pascalabc.net 3.3.5, сборка 1660 от 20.04.2018 внимание! если программа не работает, обновите версию! begin   var a: =degtorad(readreal);   writeln('cинус равен ',sin(a): 0: 13,', косинус равен ',cos(a): 0: 13) end. пример 38.4 cинус равен 0.6211477802783, косинус равен 0.7836934573258