Янаписал программу в pascal abs net, суть которой такова, что нужно человеку сначала ввести n чисел, после чего программа должна сложить данные числа и эту сумму поделить на сумму чисел в числе,которое получилось в первой сумме, когда человек вводил числа. формула: где sum1= сумму n чисел, которые ввёл человек sum2=сумму чисел в числе, получившееся в результате сложения чисел, вводимых человеком. программа var a,x,n,y,i,s,sum,b: integer; begin n : = 7; sum : = 0; for y : = 1 to n do begin write(y, '-е число = '); readln(b); sum : = sum + b end; a: =sum; readln( a ); x: =a; s: =0; while ( x< > 0 ) do begin s : = s + (x mod 10); x : = x div 10; end; case round(a/s) of 1,5,7,9,11,13,15: writeln('выпадет: красное'); 2,4,6,8,10,12,14,16: writeln('выпадет: чёрное'); 3: writeln('выпадет: зелёное'); else writeln('выпадет: неизвестный цвет'); end; readln; end. когда я её запускаю, мне сразу же выдаёт программа поля: 1-e число= потом 2-е число= и так далее. после того как я заполняю эти поля числами, ничего не происходит, хотя должна программа в итоге выдать результат последнего действия, где нужно разделить сумму чисел на сумму цифр суммированного числа. ! 100 !

uylia7    1   19.09.2019 06:06    0