• Определите, что будет напечатано в результате выполнения следующего алгоритма:
    Var s,k: integer; 
    begin
     s:= 100
    k:=7
    repeat 
    s:= s-k
    k:=k+1
    Until k>10
    writeln( s+k)
    end.
    Пожалуйста объясните как вывести отсюда результат

Ответы 5

  • Мне надо самой все вычислить, а не с помощью программы, я это просила объяснить
    • Автор:

      bram
    • 6 лет назад
    • 0
  • S=100; k=7 Повторять пока k не станет больше 10. s=s-k; s=93; k=7+1=8 и все по новой пока k не станет больше 10. После чего надо вывести полученную сумму s и k
  • Четче пиши, что тебе необходимо
  • Спасибо
  • Вставь данное условие в программу ABC Pascal. Программа выдаст ответ 77.У тебя в условии есть ошибки.Var s,k: integer; begin s:= 100;k:=7;repeat s:= s-k;k:=k+1Until k>10;writeln( s+k)end. Вот правильное условие.
    • Автор:

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

Войти через Google

или

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

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

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