Я написал программу в Pascal Абс NET, сущность которой такая, что

Question

Я написал программу в Pascal Абс NET, сущность которой такая, что

Я написал программку в Pascal ABS NET, сущность которой такая, что необходимо человеку поначалу ввести n чисел, после чего программка должна сложить данные числа и эту сумму поделить на сумму чисел в числе,которое получилось в первой сумме, когда человек вводил числа.
Формула: $\frac sum_1 sum_2$
где 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 ( xlt;gt;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 БАЛЛОВ!

Задать свой вопрос

Илюшка Олевич 2019-02-19 12:13:29

ОО, когда я убрал, мне выскачил неведомый цвет

Камилла Щепьева 2019-02-19 12:18:37

x:=a;

Varligina Elizaveta 2019-02-19 12:28:37

x := x div 10;

Илья Обжерин 2019-02-19 12:31:39

опять перезапись

Вероника Корчемская 2019-02-19 12:39:53

а не ладно, тут ок

Эвелина Кузовникова 2019-02-19 12:41:50

я не знаток паскаля, но у вас некие операции могут возвращать дробные числа, но переменные которым они присваиваются целого типа, итого, что случится?

Oleg 2019-02-19 12:49:07

Я сообразил в чём я ошибся

Исаркина София 2019-02-19 12:54:10

Сейчас всё вполне работает!!))

Грицев Игорян 2019-02-19 13:00:20

Спасибо для вас громадное

Милана Пинпева 2019-02-19 13:01:50

я к тому что возможно для вас стоит убрать округдение числа, тк у вас дробных чисел нету