|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
14.05.2009, 14:47 | #1 |
Пользователь
Регистрация: 25.03.2009
Сообщений: 47
|
Помогите дорешать программу
Дано a- натуральное число. Найти среди чисел 1, 1+1/2, 1+1/2 +1/3, .... первое болеше a.
Я думаю решение наподоби: .... ..... i:=1; repeat k:= i +1/2; inc(i); until k>=a; ..... думаю не правильно...но нужно точно через repeat. исправте пожалуйста ошибки! |
14.05.2009, 14:57 | #2 |
Участник клуба
Регистрация: 29.07.2008
Сообщений: 1,091
|
Код:
Кто бы ты ни был - не думай о себе слишком (с)
|
14.05.2009, 15:03 | #3 |
Пользователь
Регистрация: 25.03.2009
Сообщений: 47
|
а нельзя как нибудь попроще... без If ???
|
14.05.2009, 15:05 | #4 | |
Участник клуба
Регистрация: 29.07.2008
Сообщений: 1,091
|
Цитата:
Без if: Код:
Кто бы ты ни был - не думай о себе слишком (с)
|
|
14.05.2009, 15:08 | #5 |
Пользователь
Регистрация: 25.03.2009
Сообщений: 47
|
Просто у нас препод просто ужас до любого дое...Спасобочки большое!!!!!!!!!!!!!!!!!!!!!
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Помогите дорешать задачу на While | Andrux | Помощь студентам | 12 | 29.12.2008 21:24 |