• задача по информатике написать программу в которой будет вычитаться из числа 1000 числа,введённые пользователем с клавиатуры до тех пор, пока разность не станет меньше 0. примечание применить цикл REPEAT,UNTIL помогите пожалуйста буду благодарен

Ответы 1

  • // PascalABC.NET 3.2, сборка 1379 от 21.01.2017begin  var t:=1000;  var k:integer;  repeat    k:=ReadInteger('->');    t-=k  until t<0;  Writeln('Всё...')end.Пример-> 453-> 216-> 39-> 64-> 312Всё...Решение для "древних паскалей"var  k,t:integer;begin  t:=1000;  repeat    Write('->'); Read(k);    t:=t-k  until t<0;  Writeln('Всё...')end.
    • Автор:

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

Еще вопросы

Войти через Google

или

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

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

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