Вторник, 07.01.2025
Pascal 4 All
Главная | Регистрация | ВходПриветствую Вас Гость | RSS
Меню сайта
Категории каталога
Задачки циклы и условия [27]
Простые задачки, циклы, условия.
Наш опрос
А вы знали, что кликнув на обьявление в правом блоке раз в день Вы поможете сайту?
Результаты | Архив опросов
Всего ответов: 332

Главная » Статьи » Простые » Задачки циклы и условия

  
Найти член последовательности

Program PRACT27;
Uses CRT;
Var  n, s: Word;
     i: byte;
Begin
ClrScr;
Write('Введите член последовательности: ');
ReadLn(n);
While (s < n) do
      Begin
      Inc(i);
      Inc(s, i);
      End;
Writeln('Число: ',i);
ReadKey;
End.

Источник:

Категория: Задачки циклы и условия | Добавил: Seqular (24.09.2007) | Автор: Дмитрий
Просмотров: 926 | Рейтинг: 4.0/1 |

Всего комментариев: 0
Добавлять комментарии могут только зарегистрированные пользователи.
[ Регистрация | Вход ]
Форма входа
Поиск
Друзья сайта
Статистика
Copyright MyCorp © 2025
Используются технологии uCoz
style=