• Последовательно вводятся числа, найти их сумму. Ввод остановить после ввода значения, которое больше 100
    Цикл Until, Pascal

Ответы 2

  • Напишите к этой задаче, пожалуйста.
    • Автор:

      havenooiw
    • 5 лет назад
    • 0
  • var  s, x: integer;begin  s := 0;  repeat    readln(x);   if x <= 100 then       s := s + x;  until x > 100;  writeln(s);end.
    • Автор:

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

Войти через Google

или

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

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

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