• Я написал программу в Pascal ABS NET, суть которой такова, что нужно человеку сначала ввести n чисел, после чего программа должна сложить данные числа и эту сумму поделить на сумму чисел в числе,которое получилось в первой сумме, когда человек вводил числа.
    Формула: [tex]\frac{ sum_{1} }{sum_{2}} [/tex]
    где 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 БАЛЛОВ!

Ответы 0

  • Добавить свой ответ

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years