Задать вопрос Регистрация
Помочь другим

  • Дано вещественное число a. Из чисел 1, 1+1/2, 1+1/3... напечатать те, которые меньше a. Решите, пожалуйста, через while!

Ответы 1

  • Var a,l,s:real;BeginRead(a);S:=1+1/2;L:=2;While s>=a doBeginWriteln(s);L:=l+1;S:=1+1/lEndEnd.

    • Автор:

      omar509
    • 2 года назад
    • 1

  • Добавить свой ответ

Еще вопросы

Топ пользователей

Войти через Google

 или

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

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

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