После выполнения фрагмента программы : m: =0; for i: =1 to 10 do begin if i mod 3=0 then a[i]: =2*(i-1) else a [ i ]: =-1; m : = a [ i ]+ m ; end ; переменная m принимает значение …

232

347

Посмотреть ответы 2

Ответы на вопрос:

Марусяняша

Информатика

4,4(46 оценок)

23 (pascalabc. net/wde/)

Nigdui

Информатика

4,7(93 оценок)

// pascalabc.net 3.2, сборка 1362 от 14.12.2016 // внимание! если программа не работает, обновите версию! begin var x: real; for var i: =1 to 91 do begin x: =0.1*i+0.9; writeln(x: 4: 1,cos(x)-1: 11: 7) end end.