Ответы 1

  • Первая задача и последние две1)var n, i: integer;beginread(n);inc(i);while n <> i do begin  writeln('i, ','');  inc(i);  end;end.2) var n: integer;beginread(n);while n <> 0 do begin  writeln('Фамилия');  dec(n);  end;end.3) var n: integer;beginread(n);while n <> 0 do begin  write('+');  dec(n);  end;end.Поставь как лучшее решение пожалуйста
  • Добавить свой ответ

Еще вопросы

Войти через Google

или

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

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

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