• С помощью постусловием ДО нужно ввести 9 цифр и посчитать их сумму, то есть не количество цифр! А именно их сумму! И тоже самое с другими видами цикла! ПОЖАЛУЙСТА!

Ответы 1

  • 1) с for:Program n1;var a,sum: real;i: integer;beginsum:=0;for i:=1 to 9 dobeginreadln(a);sum:=sum+a;end;writeln(sum); end.2) с while:Program n1;var a,sum: real;i: integer;beginsum:=0;i:=0;while i<9 dobeginreadln(a);sum:=sum+a;i:=i+1; end;writeln(sum); end.3) с repeat:Program n1;var a,sum: real;i: integer;beginsum:=0;i:=0;repeatreadln(a);sum:=sum+a;i:=i+1; until (i=9);writeln(sum); end.
    • Автор:

      duncegsq4
    • 5 лет назад
    • 0
  • Добавить свой ответ

Войти через Google

или

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

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

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